Delphi. Не получается вывести текст в Label

[murmuno]

Глобальные переменные в Unit1:

  var
    Form1: TForm1;
    // Переменные для вывода рассчитанных значений:
    kkal, CarbMg, ProtMg, TaurMg, DRibMg, LCarnMg, CaffMg, VitCMg, InosMg,
    VitB6Mg, VitB12Mg, CarbPerc, ProtPerc, TaurPerc, DRibPerc, LCarnPerc,
    CaffPerc, VitCPerc, InosPerc, VitB6Perc, VitB12Perc: single;

Проблемный кусок:

  procedure TForm1.CountButClick(Sender: TObject);
  var
    k: single;
    f: TextFile;
  begin
    k:= strtoint(Form1.ValEdit.Text) / 100;   // константа для перевода мл -> 100мл
    case Form1.NameComB.ItemIndex of
      0 {Adrenaline Rush}: AssignFile(f, 'source\Adrenaline Rush.txt');
      1 {Adrenaline Life}: AssignFile(f, 'source\Adrenaline Life.txt');
      2 {Burn}           : AssignFile(f, 'source\Burn.txt');
      3 {кофе}           : AssignFile(f, 'source\coffee.txt');
      end;
    reset(f);
    readln(f, kkal);     kkal:= k*kkal;
    readln(f, CarbMg);   CarbMg:= k*CarbMg/1000; {г}         CarbPerc:= k*CarbPIn;
    readln(f, ProtMg);   ProtMg:= k*ProtMg/1000; {г}
    readln(f, TaurMg);   TaurMg:= k*TaurMg;                  TaurPerc:= k*TaurPIn;
    readln(f, DRibMg);   DRibMg:= k*DRibMg;                  DRibPerc:= k*DRibPIn;
    readln(f, LCarnMg);  LCarnMg:= k*LCarnMg;                LCarnPerc:= k*LCarnPIn;
    readln(f, CaffMg);   CaffMg:= k*CaffMg*1000; {мкг}
    readln(f, VitCMg);   VitCMg:= k*VitCMg*1000; {мкг}       VitCPerc:= k*VitCPIn;
    readln(f, InosMg);   InosMg:= k*InosMg*1000; {мкг}       InosPerc:= k*InosPIn;
    readln(f, VitB6Mg);  VitB6Mg:= k*VitB6Mg*1000; {мкг}     VitB6Perc:= k*VitB6PIn;
    readln(f, VitB12Mg); VitB12Mg:= k*VitB12Mg*1000000; {нг} VitB12Perc:= k*VitB12PIn;
    CloseFile(f);
    FormRes.kkalLab.Caption:= FormatFloat('0.##', kkal) + ' кКал';
    FormRes.CarbMgLab.Caption:= FormatFloat('0.##', CarbMg) + ' г';
{и т.д.}
    FormRes:= TFormRes.Create(Application);
    FormRes.ShowModal;
  end;

Объект NameComB принадлежит классу TComboBox. В зависимости от выбранного пункта должен активироваться определённый файл в папке 'source'.
По нажатию на кнопку CountBut создаётся новый диалог в модальном режиме, в нём должна высвечиваться рассчитанная информация.
На строчке

FormRes.kkalLab.Caption:= FormatFloat('0.##', kkal) + ' кКал';

компилятор выдаёт ошибку EAccessViolation "Access violation at address 0046C3A3 in module 'Project2.exe'. Read of address 000003A4".
Я не понимаю, что от меня требуется, чтобы ошибку исправить.

[Lauraldo]

Код создания формы пишется все-таки ДО ее использования (я говорю о FormRes).

[murmuno]

Форма описана в Unit2, а в Unit1 (из которого я скопировала код) в uses прописано, что используется Unit2.
Или что-то ещё надо?

[Lauraldo]

Строки

FormRes.kkalLab.Caption:= FormatFloat('0.##', kkal) + ' кКал';
    FormRes.CarbMgLab.Caption:= FormatFloat('0.##', CarbMg) + ' г';

FormRes еще не существует. Поэтому ошибка. А потом ты решила ее все-таки создать)))

FormRes:= TFormRes.Create(Application);

[murmuno]

Ясно. Извини, недопоняла. Спасибо большое (=