[Onti]

Aqui tienes el codigo

Código Delphi [-]
var 
  F      : TextFile;
  LVar  :String
begin
  AssignFile(F, 'nombrearchivo.txt');
  Rewrite(F);
  Writeln(F, LVar);
  CloseFile(F);
end;