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;
        Button1: TButton;
        procedure Memo1KeyPress(Sender: TObject; var Key: Char);
        procedure Button1Click(Sender: TObject);
    
      private
        CurrentKey: Word;
    
        function getBiggestLine(AMemo: TMemo): Integer;
        function getCurrentLine(AMemo: TMemo): Integer;
        function whiteSpaceCountToString(ASpaces: Integer): String;
    
        procedure MemoAdjustment(var AMemo: TMemo);
    
      public
        { Public declarations }
      end;
    
    var
      Form2: TForm2;
    
    implementation
    
    {$R *.dfm}
    
    
    
    
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      MemoAdjustment(Memo1);
    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 := AMemo.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;
    
        // MemoAdjustment(Memo1); não sei se encaixa legal esse méto aqui
        Memo1.Lines.Insert(getCurrentLine(Memo1), whiteSpaceCountToString(getBiggestLine(Memo1)));
        PostMessage(Memo1.Handle, WM_KEYDOWN, VK_HOME, 0);
      end;
    end;
    
    
    
    procedure TForm2.MemoAdjustment(var AMemo: TMemo);
    var
      i: Integer;
      whiteSpaceCount: Integer;
      whiteSpaceToAdd: Integer;
    begin
      whiteSpaceCount := getBiggestLine(Memo1);
      for i           := 0 to AMemo.Lines.Count - 1 do
      begin
        whiteSpaceToAdd := whiteSpaceCount - Length(trim(AMemo.Lines[i]));
        AMemo.Lines[i]  := trim(AMemo.Lines[i]) + whiteSpaceCountToString(whiteSpaceToAdd);
      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 `TMemo` para uma fonte onde todos os caracteres tenham o mesmo tamanho. Ex: "Lucida Console".

**Edit:** Adicionado método MemoAdjustment.