copiar un TMemo en un .txt

[nenufer]

Hola!! Se guardaba xa todo entero y me lo repetia.
ej:
1º bloke1
2º bloke2.

pero me grababa .
blok1
bloke1
bloke2
Bueno lo tengo ya solucionado, gracias. Cuando apretaba al boton me hacia un seguimiento y me grababa todas las lineas en el archivo. Pero guardaba el memo entero. Entonces he optado por guardarlo linea a linea con el append.

Código Delphi [-]
procedure TForm1.GrabarEnArchivo(AsString : String; Nombre : TFileName);
var
  F : TextFile;
begin
  assignfile(F,Nombre);
  if FileExists(Nombre)
    then append(F)
  else
    rewrite(F);
  writeln(F,AsString);
  closefile(F);
end;

De todas formas lo que me has puesto me ha servido de mucho. Porque no es q controle esto como puedes ver y he aprendido cosillas interesantes. Muchas gracias.