Importar Dados .txt

var
    arq: TextFile;
    linha, valor: string;
    x: integer;
begin
AssignFile(arq,´c:\teste.txt´);
{$I-}
Reset(arq);
{$I+}
if IOResult = 0 then
    begin
    while not Eof(arq) do
        begin
        Readln(arq,linha);
        valor:=´´;
        for x:=1 to Length(linha) do
            begin
            valor:=valor + linha[x];
            if ((linha[x] = ´|´) or (x = Length(linha))) then
                begin
                if (linha[x] = ´|´) then
                    valor:=copy(valor,1,Length(valor) - 1);
                //Neste ponto vc já terá o "valor" para ser atribuido ao seu campo...
                valor:=´´;
                end;
            end;
        end;
    end;