Te recomendaría que uses un TStrinList para cargar el archivo que deseas procesar:
Código Delphi
[-]
var
MyFileStr: TStringList;
I: Integer;
Line: String;
begin
MyFileStr := TStringList.Create;
try
MyFileStr.LoadFromFile('Ruta del archivo\archivo.txt');
for I := 0 to Pred(MyFileStr.Count) do
begin
Line := MyFileStr[i];
end
finally
MyFileStr.Free
end
end;
Ahora, no entendí del todo que es
estructura, ¿es algún arreglo de registros?
Saludos...