Title: How to 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;