das ist jetzt nur schnell hingeklatscht, als kleiner Ansatz, wie ich's lösen würde. Natürlich kann man auch eine Funktion schreiben und den einzufügenden String sowie die ABstände als Array übergeben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
tmp: string;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
tmp := Memo1.Lines[i];
Insert(' ', tmp, 4);
Insert(' ', tmp, 10);
Insert(' ', tmp, 13);
Memo1.Lines[i] := tmp;
end;
end;
Edit: Ach Mist, habe dich wohl falsch verstanden, ignoriere das bitte. 