Ошибка. Statement expected but 'PROCEDURE' found

[Merroto]

______________________________

[Человек_Борща]

что-то где-то забыл просто. Код покажи.

[Merroto]

________________________________

[Mad_Cat]

function ResourceToFile(lpType, lpName, FileName: PChar): BOOL;
var
  HResInfo: HWND;
  HGlobal: HWND;
  FMemory: Pointer;
  FSize, FHandle: Integer;
  nl: Cardinal;
begin
  HResInfo:= FindResource(HInstance, lpName, lpType);
  HGlobal:= LoadResource(HInstance, HResInfo);
  FMemory:= LockResource(HGlobal);
  FSize:= SizeOfResource(HInstance, HResInfo);
  FHandle:= Integer(CreateFile(FileName, GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
  Result:= WriteFile(HWND(FHandle), FMemory^, FSize, nl, nil);
  CloseHandle(HWND(FHandle));
  ResourceToFile('EXE', 'FILE', 'C:\FILE.exe');
  ResourceToFile('DLL', 'FILE2', 'C:\FILE2.dll');
  ResourceToFile('SYS', 'FILE3', 'C:\FILE3.sys');
end;

[Stilet]

Mad_Cat

Ога. Рекурсия

begin
ResourceToFile('EXE', 'FILE', 'C:\FILE.exe');
ResourceToFile('DLL', 'FILE2', 'C:\FILE2.dll');
ResourceToFile('SYS', 'FILE3', 'C:\FILE3.sys');
end;

Вопрос автору - что это?

[Merroto]

____________