Zeilen in einer Stringlist vervollständigen

[bofh]

Danke für die Denkanschubser
meine Lösung

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
sl : tstringlist;
kopf :string;
iii: Integer;
begin
  sl := tstringlist.Create;
  kopf := '1;2;3;4;5;6;7';
  sl.LoadFromFile('tmpExcel.csv');
for iii := 0 to sl.Count - 1 do
  begin
    sl[iii] :=sl[iii]+ ';wer;wo;warum';
  end;
    sl.Insert(0,kopf);
    sl.SaveToFile(ExtractFilePath(ParamStr(0))+'Datei.csv');
    Memo4.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'Datei.csv');
end;

mfg
BOFH