ciao,
ti dico come leggere il file di testo e decomporre la stringa.

var list : TStringList;
i : integer;
str : string;

begin

list := TStringList.Create;
with list do
begin
LoadfromFile('dove_si_trova_il_file');
// scan di tutto, oppure leggi
// la riga desiderata
for i := 0 to Count - 1 do
begin

str := Items[i];

parte1 := Copy(str, iniz, fine);
parte2 := Copy(str, iniz, fine);
....
end;
Free;
end;

end;

ciao
sergio