Crea un proyecto nuevo.
Añade un botón, 3 labels y un memo, por ejemplo.
En el click del botón pega esto:
Código Delphi
[-]procedure TForm1.bt1Click(Sender: TObject);
const
crlf = chr(13)+chr(10);
var
F : TextFile;
cLin : string;
iPos : Integer;
cCampo1, cCampo2, cCampo3 : string;
begin
AssignFile(F,'c:\DGII_RNC.TXT');
Reset(F);
ReadLn(F,cLin);
while not eof(F) do
begin
iPos := Pos('|',cLin);
cCampo1 := Copy(cLin,0,iPos-1);
cLin := copy(clin,iPos+1,length(cLin));
iPos := Pos('|',cLin);
cCampo2 := Copy(cLin,0,iPos-1);
cLin := copy(clin,iPos+1,length(cLin));
iPos := Pos('|',cLin);
cLin := copy(clin,iPos+1,length(cLin));
iPos := Pos('|',cLin);
cCampo3 := Copy(cLin,0,iPos-1);
lb1.Caption := ccampo1;
lb2.Caption := ccampo2;
lb3.Caption := ccampo3;
mmo1.Lines.Add(ccampo1+crlf+ccampo2+crlf+ccampo3+crlf);
ReadLn(F,cLin);
end;
CloseFile(F);
end;
Los labels los he nombrado: lb1, lb2 y lb3
El botón lo he nombrado: bt1
El memo lo he nombrado: mmo1