Fórum arquivo texto para registrar envio #314352

procedure TSendFTP.GravaEnvio;
const
  NomArquivo: String = ´LogEnvio.txt´;
var
  Path: String;
  Arquivo: TextFile;
begin
  Path := ExtractFilePath(Application.ExeName);
  if not DirectoryExists(Path) then begin
    CreateDir(Path);
  end;
  if not FileExists(Path + NomArquivo) then begin
    FileCreate(Path + NomArquivo);
  end;
  Try
    AssignFile(Arquivo, Path + NomArquivo);
    Append(Arquivo);
    Write(Arquivo, DateToStr(Date) + ´ ´ + TimeToStr(Time));
    CloseFile(Arquivo);
  Except

  End;