var aHandle : THandle; aFileSize : Integer; aFileName : String; procedure TForm1.Button3Click(Sender: TObject); begin aFileName := 'C:\101\Java_new.pdf'; aHandle := CreateFile(PChar(aFileName),GENERIC_READ, , ); // get the handle of the file aFileSiz