при нахождении символа перенос на новую строку

[S@fer]

Или можно так

procedure TForm1.Button1Click(Sender: TObject);
 begin
  if Open.Execute
    then from.Text :=Open.FileName
  else ShowMessage ('Ôàéë íå âûáðàí');
       Memo1.lines.loadfromfile(from.text);
       s:=Memo1.Text;
       c:='|';
       s:=StringReplace(s,c,#13#10,[rfReplaceAll]);
       Memo1.Text:=s;
 end;

[MixanMM]

СПАСИБО большое, с меня пиво !!