[m1sclick]

Кхм.....

Код:

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

Это как получается?

Также. А нормально то что:
Num: integer, а result := IntToStr(SerialNum); - тоесть String?
Дальше......

Код:

Label2.Caption:=Num;
x:= strtoint(Num) + z * y;

Насколько я знаю, должен быть тип String у переменной.
И еще

Код:

SerialNum : dword;
|
|
\/
result := IntToStr(SerialNum)

Это нормально?

Ты уверен что:

переменная Num integer

Дальше. Зачем вызываешь:

Код:

with TStringList.Create do
try
Num:=(hddser);
  Add(id);
  SaveToFile('C:\1.txt');
finally 
  Free;
end;

Если Num там дальше нигде не используется.

Касательно

[Warning] Unit1.pas(48): Constant expression violates subrange bounds

В var замени -

Buffer : array [0..255] of char;

на что то по больше.
http://forum.sources.ru/index.php?showtopic=167280 - особенно обрати внимание на Сообщ. #2.

И вообще, зачем нужна функция если у тебя там одна строчка кода, не считая объявления переменных?

Выложи весь код - это значительно упростит разгадывание твоей загадки.