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".