Código Delphi [-] procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if Length(Memo1.Lines[Memo1.Lines.Count-1]) > 2 then key := #13; end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if Length(Memo1.Lines[Memo1.Lines.Count-1]) > 2 then key := #13; end;