so hab mir wieder selber geholfen
Delphi-Quellcode:
procedure Tfrm_file.Timer1Timer(Sender: TObject);
var
i_size,i_pos:integer;
begin
i_size:=fstream.Size;
i_pos:=fstream.Position;
edit1.text:=inttostr(round((i_pos/i_size)*100));
end;
aber trotzdem thx