Wenn ich mich nicht irre, dann in etwa so!?
Code:
procedure InsertCRLF;
var temp1,
temp2: string;
i : integer;
begin
temp1:= Memo1.Text;
temp2:= '';
for i:= 1 to length(temp1) do begin
if temp1[i]=';' then temp2:= temp2+#13#10
else temp2:= temp2+temp1[i];
end;
Memo1.Text:= temp2;
end;
Grüsse!