Var SL: TStringList; begin SL := TStringList.Create; SL.Delimiter := '/'; SL.LoadFromFile('c:\Test.txt'); SL.DelimitedText := SL.Text; Memo1.Text := SL.Text; SL.Free; end;