[Skainet]

Помогите вывесте переменную в Label2

вот код

Код:

function hddser:string;
var
SerialNum : dword;
a, b : dword;
Buffer  : array [0..255] of char;
begin
if GetVolumeInformation(pchar('c:\'), Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
result := IntToStr(SerialNum);
end;
 begin
 if FileExists('c:\1.txt') then
  ShowMessage('Файл c:\1.txt существует')
else
begin
Num:=(hddser);
Label2.Caption:=Num;
y:=5;
z:=2455560128;
x:= strtoint(Num) + z * y;
id:= inttostr(x);
with TStringList.Create do
try
Num:=(hddser);
  Add(id);
  SaveToFile('C:\1.txt');
finally 
  Free;
end;
end;

end.

Админ: Пользуемся тегами для оформления кода!

вот ошибка с лога
[Error] Unit1.pas(45): Undeclared identifier: 'Label2'

надо вывести без процетуры onclick в ходе запуска программы