...set the tabulator width in a TMemo?

procedure TForm1.Button1Click(Sender: TObject);
var
  FTabWidth: Integer;
begin
  Memo1.WantTabs := True;

  {setzt die Tabulator Breite auf 4 Pixel}
  {set the tabulator width to 4 pixel}
  FTabWidth := 4;
  SendMessage(Memo1.Handle, EM_SETTABSTOPS, 1, Longint(@FTabWidth));
end;