Ist zwar recht einfach gestrickt, funktioniert aber völlig Problemlos. Sofern, das 3. Memofeld nicht stört...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i, j : word;
s : string;
begin
memo3.Lines.LoadFromFile('datei.txt');
for i:=0 to memo3.Lines.Count-1 do
begin
s:=memo3.Lines[i];
j:=pos(';',s);
memo1.Lines.Add(copy(s,1,j-1));
delete(s,j,length(s)-j);
memo2.Lines.Add(s);
end;
end;