Ошибка при конветрации

[soundshocking]

Прошу за ранее прощения за глупую тему и всё же ступор зашёл на данном моменте программы:

procedure TStat.Button1Click(Sender: TObject);
begin
max:=100000;
cur:=Main.DBGrid1.DataSource.DataSet.RecordCount;
res:=max-cur;
curint:= StrToInt(label6.caption);
procent:=(curint / max)*100;
Label1.Caption:=Label1.Caption + '  ' + IntToStr(Main.DBGrid1.DataSource.DataSet.RecordCount);
{Label3.Caption:=Label3.Caption + ' ' + IntToStr(res); }
label6.Caption:=IntToStr(res);
label7.Caption:=Label7.Caption + CurrToStr(procent);
end;

Фрагмент должен отображать информацию о количестве записей в таблице и вычислять численное и процентное значения оставшихся в резерве записей, с условием что их максимальное количество равно 100 000. Процентное значение должно отображаться с дробной частью (округление до тысячных: 0,000).

При вызове процедуры появляется ошибка: " Project AUPO.exe raised exception class EConvertError with message " 'is not a valid integer value'.

Переменные описаны следующим образом:

procent:currency;
max:longint;
cur:longint;
curint:longint;
res:longint;

[Sensizu]

мне кажется ему это не нравится:

curint:= StrToInt(label6.caption);

Может значение лейблы пустое? Вот и пишет, что " " не является цифрой. Ну ошибку выдает по причине того, что мы пытаемся конвертировать пустую строку в число... Эта строка - явная попытка такого... Вот смотрю еще - вроде больше нет.

[soundshocking]

Sensizu, благодарю.

p.s. 18 часов за компьютером в сутки приводят к глупым ошибкам... пойду высплюсь

[Sensizu]

soundshocking, xD хороших снов