{
File Writeln...
}
function FileWriteln(FileName,Data:String):Integer;
var n,status:Integer; size:Real; b:Boolean;
begin
 n:=0;
 if Length(Trim(FileName))>0 then
 if DirExists(ExtractFilePath(FileName)) then begin
  if FileExists(FileName)
  then status:=f_Reset(FileName,1)
  else status:=f_Rewrite(FileName,1);
  if status<>0 then Trouble('Error '+Str(status)+' on open file '+FileName) else begin
   size:=f_Size;
   if size>=0 then
   if f_Seek(size)=size then n:=f_Write(Data+CRLF);
  end;
  b:=f_Close;
  status:=IoResult;
  if status<>0 then Trouble('Error '+Str(status)+' on write file '+FileName);
 end;
 FileWriteln:=n;
end;
