source code: procedure TForm1.Button1Click(Sender: TObject); var s:tstrings; ff:textfile; begin s := tstringlist.Create; open1.Filter := 'Filetypes|*.txt'; if open1.Execute then try s.LoadFromFile(open1.FileName); if not fileexists('C:\ff.txt') then filecreate('C:\ff.txt'); writeln(ff,s.text); finally s.Free; end; end; end. open1 :opendialog1 My plan: write the contents stored in Tstringlist(s) in an external file called ff. Cos the ff.txt doesnt exist at first, then i create it, but i cant run successfully. hope somebody can fix these code for me! thanx a lot!

var
  S:TStrings;
  ff:Textfile;
  IsAppend:Boolean;
  I:integer;
begin
  S := TStringlist.Create;
  Try
    if open1.Execute then S.LoadFromFile(open1.FileName);
    IsAppend := Fileexists('C:\ff.txt');
    Assignfile(ff,'C:\ff.txt');
    try
      if IsAppend then Append(ff) else Rewrite(ff);
      For I:=0 to S.Count-1 do Writeln(ff,S[I]);
      flush(ff);
    finally
      Closefile(ff);
    end;
  finally
    FreeandNil(S);
  end;
end;

try it..