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)
Código:
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);