Potrebujem Meno, v ktorom by mohlo byť maximálne 5 riadkov pri maximálnej dĺžke každého riadka 60 znakov. Nakoľko som nenašiel lepšie riešenie, urobil som toto. Je možné to urobiť jednoduchšie?

procedure TfrmInputPartner.memoAdressKeyPress(Sender: TObject;
  var Key: Char);
var
  i, j: Integer;
  Line: Integer;
begin
  with memoAdress do
    begin
      if (Key = #13) and (Lines.Count = 5) then Key := #0;
      if (Key in [#32..#255]) then
        begin
          j := -1;
          Line := 0;
          repeat
            i := j + 2;
            j := PosEx(#$D#$A, Text, i);
            if (j > 0) and (SelStart + 1 > j) then Inc(Line);
          until (SelStart + 1 <= j) or (j = 0);
          if (Line > 4) or (j - i >= 60) then Key := #0;
        end;
    end;
end;