[TStringList] Problem mit einer Datei (bricht zu früh ab)

[xZise]

Okay... Ich habe es so gemacht, bekomme aber eine nette AV. (Habe bisher noch nicht mit Streams gearbeitet)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fsStream : TFileStream;
  Text : string;
begin
  if odTrack.Execute then begin
    fsStream := TFileStream.Create(odTrack.FileName, fmOpenRead or fmShareDenyWrite);
    try
      fsStream.Seek(1, soFromBeginning);
      fsStream.Read(Text, fsStream.Size - 1);
      Showmessage(Text[1]);
    finally
      fsStream.Free;
    end;
  end;
end;