Как отобразить размер выбранного изображения в Form2.Label1 (в мегабайтах), в форме Form2 перед сохранением и при открытии формы уже ранее загруженного изображения

файл пользователя на его пк--> прикрепляет файл через программу, нажимает сохранить --->файл копируется в директорию на сервере--> в базе данных линк файла указывается директория на сервере. 

Заранее спасибо.

sUser := frmLogin.cbLogin.Text; // remember username
sOrganization := frmLogin.cbOrg.Text; // remember organization

И вот что в итоге я хочу: 1) При внесении новой информации в таблицу автоматически должно подставляться название организации которое было выбрано при входе в программу и которое нельзя поменять.
2) Что бы нельзя было редактировать и удалять записи которые были созданы другими пользователями с других организаций, а только максимум просмотр. То есть например Вася с организации №1 может свободно создавать новые свои записи, может их свободно редактировать или удалять, Петя с организации №1 так же может добавлять новые записи, может редактировать/удалять записи свои и пользователя Васи с той же организации, но другой пользователь Коля из организации №2 может создавать свои записи, редактировать их или удалять, но не может редактировать или удалять записи которые были созданы пользователями с организации №1, максимум только просмотр. Было бы вообще замечательно если будет разграничение прав еще внутри самой организации - Вася например может добавлять/редактировать/удалять инофрмацию в орагизации №1, а вот Петя только добавлять и редактировать но не удалять в организации №1.Заранее спасибо.

     q := Zakupka.Tablenom.Columns.Count-1;
     c := Zakupka.Tablenom.RowCount - 1;
     for i := 0 to c do
     begin
            if Zakupka.Tablenom.Cells[10,i] <= Zakupka.Tablenom.Cells[8,i] then
     begin
     s := Zakupka.Tablenom.Cells[10,i];
              for k := 0 to q do
       Zakupka.Tablenom.Cells[10,i]].Text := Запрос не могу сообразить как корректно указать (примерный запрос ниже) ;
         end;
         end;
           Zakupka.Tablenom.EndUpdate
  end;

SELECT
SUM(SpecEntrance.number)
FROM ZakEnt
LEFT JOIN Entrance ON ZakEnt.id_Entrance=Entrance.id
LEFT JOIN SpecEntrance ON SpecEntrance.id_Entrance=Entrance.id
WHERE ZakEnt.id_Zakupka=' +frmZakupka.Edit4.sqlValue+' and SpecEntrance.id_Nomenklature='+Zakupka.Tablenom.Cells[4,i]'

Файл с базой прилагаю

Мне надо, что-бы когда я выбрал значение на первой форме, в таблице отображались только записи сделанные относительно этого значения. А мне выводит все записи всех значений.

Пример - выбираю "садочок 1" из комбобокса. И нажимаю на галку. И мне выводит следующую форму с основными параметрами. И там, в таблице, показываются все записи, сделанные в разных подкатегориях (из комбобокса). 
А мне нужно, что бы были записи касающиеся только этой выбранной категории, т.е. "садочок1".

Программа сделана в версии 6.5

Прикладываю свой проект. Подскажите, что не так я делаю.

// --- Кнопка "Выдать инструмент"
procedure FrmRent_ButtonIssue_OnClick(Sender: TObject; var Cancel: boolean);
begin
  if FrmRent.ComboBox2.dbItemID > 0 then // Проверяем, выбран ли инструмент (id > 0)
  begin
    // Меняем статус на "Выдан" (id_status = 3)
    SQLExecute('UPDATE tools SET id_status = 3 WHERE id = ' + IntToStr(FrmRent.ComboBox2.dbItemID));
    ShowMessage('Инструмент выдан!'); // Уведомляем пользователя об успешной операции
  end
  else
  begin
    ShowMessage('Выберите инструмент для выдачи!');
    Cancel := true; // Отменяем дальнейшие действия, если нет выбранного инструмента
  end;
end;

Есть ли такая возможность жостко прописать статусы в программе навсегда, что бы пользователь не вносил их вручную. А то если пользователь напишет другое слово то в скрипте возникакт ошибка.