[friz]

код вроде работает...

Код:

procedure CSV_File (FileName: String; separator: char);
var f: TextFile;
    s1, s2, rez: string;
begin
  s1 := Form1.Label3.Caption ;
  s2 := Form1.Label2.Caption ;
  rez := s1 + #35 + s2 + #35;
  AssignFile (f, FileName);
 if FileExists(FileName)  then
 begin
 Append(f);
 writeln (f, rez);
 CloseFile(f);
 end
 else
 begin
 rewrite(f);
 writeln (f, rez);
 CloseFile(f);
 end;
end;