procedure TForm2.Button1Click(Sender: TObject); var sl, sl2, sl3: TStringList; i, j, k: Integer; begin sl := TStringList.Create; sl2 := TStringList.Create; sl3 := TStringList.Create; try if OpenDialog1.Execute then begin sl.LoadFromFile(OpenDialog1.FileName); sl2.Add(''); sl2.Add(''); sl2.Add(''); sl2.Add(''); for i := 0 to sl.Count - 1 do begin sl2.Add(''); sl3.Text := StringReplace(sl[i], '|', #13, [rfReplaceAll, rfIgnoreCase]); for k := 0 to sl3.Count - 1 do begin sl2.Add(''); end; sl2.Add(''); end; sl2.Add('

' + sl3[k] + '

'); sl2.Add(''); sl2.Add(''); if SaveDialog1.Execute then sl2.SaveToFile(SaveDialog1.FileName); end; finally sl.Free; sl2.Free; sl3.Free; end; end;