Procedure Importar_Concurso();
var
Fconcurso:TextFile;
cRegistro:String;
cBuscar :String;
Ic:Concurso;
lAppend:Boolean;
begin
lImportar:=True;
lAppend:=False;
cCamino:=DmPal.ConfExportUnidad.Value+'\Concurso.Txt';
AssignFile(Fconcurso,cCamino);
Reset(Fconcurso);
Readln(Fconcurso, cRegistro);
CloseFile(Fconcurso);
Ic.Codigo :=Copy(cRegistro,01,04);
.........