[dec]

Hola,

Encontrarás no pocas maneras de hacerlo. Según he visto algo así podría servir para empezar:

Código Delphi [-]
{ Escribe una línea en un archivo de texto

  ln: string ............ Línea a escribir en el archivo
  path: string .......... Ruta del archivo a escribir

  overwrite: boolean .... Determina si ha de sobreescribirse
  el archivo en caso de que ya exista o, por el contrario, si
  ha de escribirse la línea a continuación de las que ya con-
  tuviera el archivo en cuestión

}
procedure WriteLnToTextFile(ln, path:
  string; overwrite: boolean = false);
var
  f: TextFile;
begin
  AssignFile(f, path);
  if FileExists(path) and not overwrite then
    Append(f)
  else
    Rewrite(f);
  WriteLn(f, ln);
  CloseFile(f);
end;

{ Ejemplo de uso del procedimiento
}
procedure TForm1.Button1Click(Sender: TObject);
var
  fecha: string;
begin
  fecha := DateToStr(MonthCalendar1.Date);
  WriteLnToTextFile(fecha, 'C:\archivo.txt');
end;