Cara, eu não aconselho você a fazer isso, porque é uma bela duma gambiarra. Mas se você quiser dar uma olhada segue o código: unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; type TForm2 = class(TForm) Memo1: TMemo; Timer1: TTimer; procedure Memo1KeyPress(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); private pressHomeButton: Boolean; function getBiggestLine(AMemo: TMemo): Integer; function getCurrentLine(AMemo: TMemo): Integer; function whiteSpaceCountToString(ASpaces: Integer): String; public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin pressHomeButton := False; end; function TForm2.getBiggestLine(AMemo: TMemo): Integer; var i: Integer; iCurrentLinesCount: Integer; iBiggestLinesCount: Integer; begin iBiggestLinesCount := 0; for i := 0 to AMemo.Lines.Count - 1 do begin iCurrentLinesCount := Length(AMemo.Lines[i]); if (iCurrentLinesCount > iBiggestLinesCount) then begin iBiggestLinesCount := iCurrentLinesCount; Result := iBiggestLinesCount; end; end; end; function TForm2.getCurrentLine(AMemo: TMemo): Integer; Var Coordinate: TPoint; Begin Coordinate := Memo1.CaretPos; Result := Coordinate.Y + 1; End; procedure TForm2.Memo1KeyPress(Sender: TObject; var Key: Char); begin if (Key = #13) and (Memo1.Lines.Count > 0) then begin Key := #0; Memo1.Lines.Insert(getCurrentLine(Memo1), whiteSpaceCountToString(getBiggestLine(Memo1))); pressHomeButton := True; PostMessage(Memo1.Handle, WM_KEYDOWN, VK_HOME, 0); end; end; function TForm2.whiteSpaceCountToString(ASpaces: Integer): String; var i: Integer; begin Result := ''; for i := 1 to ASpaces do Result := Result + ' '; end; end. outra hora vou dar uma melhorada nele, mas por hora é isso. Qualquer duvida pergunte. PS.: Para funcionar corretamente, é necessário mudar a fonte do `Memo` para uma fonte onde todos os caracteres tenham o mesmo tamanho. Ex: "Lucida Console".