Error al llenar tabla desde archivo txt

[mane]

Y si lo haces así...

Supongamos estas variables
ft : textfile;
lin : string;

y un fichero donde está la información, un código de 5 letras y una descripción, separados por una coma (o lo que sea)

  assignfile(ft,DirectoryEdit1.text+'\Anotacion.txt');
  {$I-}
    Reset(Ft);
  {$I+}
  if IOResult <> 0 then
  begin
    Showmessage('No se encuentra el fichero de anotaciones.');
    Exit;
  end;
  while not eof(ft) do
  begin
    Readln(ft,lin);
    Table1.Append;
    Table1.Fieldbyname('Codigo').asstring:=copy(lin,1,5);
    Table1.Fieldbyname('Fecha').asdatetime:=now;
    Table1.Fieldbyname('Descripcion').asstring:=copy(lin,7,80);
    Table1.Post;
  end;
  Closefile(ft);