procedure SaveStr(Source,FileName:AnsiString);
var
 F:File;
 SaveMode:Integer;
begin
 AssignFile(F,FileName);
 SaveMode:=FileMode;
 FileMode:=1;
 try
  Rewrite(F,1);
  try
   BlockWrite(F,Source[1],Length(Source));
  finally
   CloseFile(F);
  end;
 except
  on EInOutError do raise Exception.Create('Yazma Hatası '+Filename);
 end;
 FileMode:=SaveMode;
end;
 
(* KULLANIMI *)
 
// Örnek 1:
SaveStr(Edit1.Text,'c:veri.txt');
 
 
// Örnek 2:
var
  S: String;
begin
  S := 'Bu bir örnektir...';
  SaveStr(S,'c:veri.txt');
end;