Вес

[romanzi]

В чём ошибка?

 var
     myFileSize : real;
     searchResult : TSearchRec;
   begin
      if OpenDialog1.Execute then
      memo1 := OpenDialog1.FileName;
      FindFirst(memo1, faAnyFile, searchResult); // извлекаем данные из файла
      myFileSize := searchResult.Size/1024; // переводим байты в килобайты
      ShowMessage('Размер файла = ' + FloatToStr(myFileSize) + ' Кб');

[Пепел Феникса]

в типах, и в том что не думаете что делаете(надо же додуматся мемо присваивать имя файла).

 var
     myFileSize : real;
     searchResult : TSearchRec;
   begin
      if OpenDialog1.Execute then 
       begin
        FindFirst(OpenDialog1.FileName, faAnyFile, searchResult); // извлекаем данные из файла
        myFileSize := searchResult.Size/1024; // переводим байты в килобайты
        FindClose(searchResult);
        ShowMessage('Размер файла = ' + FloatToStr(myFileSize) + ' Кб');
       end;