Error al llenar tabla desde archivo txt

[mane]

No le veo problema a la estructura de tu fichero txt.

var l1,l2,l3,l4 : string;
    procedure extrae(cad:string;var t1,t2,t3,t4:string);
    var q : integer;
    begin
      t1:='';t2:='';t3:='';t4:='';
      q:=1;
      while copy(cad,q,1)<>'|' do
      begin
        t1:=t1+copy(cad,q,1);
        inc(q);
      end;
      inc(q);
      while copy(cad,q,1)<>'|' do
      begin
        t2:=t2+copy(cad,q,1);
        inc(q);
      end;
      while copy(cad,q,1)<>'|' do
      begin
        t3:=t3+copy(cad,q,1);
        inc(q);
      end;
      inc(q);
      t4:=copy(cad,q,3);  // el resto
    end;
 
 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);
    extrae(lin,l1,l2,l3,l4);
    Table1.Append;
    Table1.Fieldbyname('Codigo').asinteger:=strtoint(l1);
    Table1.Fieldbyname('Numero').asstring:=l2;
    Table1.Fieldbyname('Nombre').asstring:=l3;
    Table1.Fieldbyname('Tipo').asstring:=l4;
    Table1.Post;
  end;
  Closefile(ft);

[[fjcg02]]

Insisto, mira un poco lo que te digo en el mensaje anterior.
En el formulario que te adjunto, las tablas que ves en él son realmente ficheros de texto. Incluso se puede hacer maestro-detalle.
Si quieres no visualizas los registros y los utilizas a tu antojo

Un saludo