Stream auslesen

[oehl]

hallo,

ich möchte einen stream in zwei verschiedene listen einlesen und zwar so, dass die ungeraden Zeilenindex in Liste 1 und die geraden in Liste 2 stehen. Ich dachte so ungefähr

Delphi-Quellcode:

TDatensatz = packed record
        Liste1:Extended;
        Liste2:extended;

        end;
    TDatenarray = array of TDatensatz ;
var
time:smallint;
arr:TDatenarray;
index:byte;
werte:string;

begin
Stream1  := TFileStream.Create(Inputfile,fmOpenRead);
while stream1.Position < stream1.size do begin
            stream1.ReadBuffer(time, SizeOf(time));
arr[index].Liste1 = time;
stream.seek(2, soFromCurrent);
arr[index].Liste2 = time;
werte:=floattostr(arr[index].Liste1) + #9 + floattostr(arr[index].Liste2);
stream2.writebuffer(werte[1],length(werte);
inc(index);
end;
end;

das klappt aber nicht, ich hab auch wenig Erfahrung damit. Hat da jemand nen Tip?