var
  SearchRec: TSearchRec;
begin
  if FindFirst(OpenDialog1.FileName, faAnyFile, SearchRec) = 0 then
      StatusBar1.Panels[2].Text := 'Size : '+FloatToStrF(SearchRec.Size/1024, ffFixed, 7, 2)+' KB';
  FindClose(SearchRec);