Memo - criando tabs

// Fazendo tabulacoes em um MEMO

// coloca valores no memo

var

  i : Integer;

begin

  for i := 1 to 100 do

    Memo1.Lines.Add('Linha '+IntToStr(i)+#9'Opção '+IntToStr(100-i)+#9'Teste');

  Memo1.SelStart := 0;  

end;

// tabs iguais

var

  TabsSet : DWord;

begin

  TabsSet := 60;

  Memo1.Perform(EM_SETTABSTOPS,1,Integer(@TabsSet));

end;

// tabs diferentes

var

  TabsSet : Array[0..1] of DWord;

begin

  TabsSet[0] := 60;

  TabsSet[1] := 180;

  Memo1.Perform(EM_SETTABSTOPS,2,Integer(@TabsSet));

end;

// volta ao normal

  Memo1.Perform(EM_SETTABSTOPS,0,0);