Funktion aufrufen?

[Nicodius]

Delphi-Quellcode:

prodecure Form1.Button1Click(Sender : TObject);
var 
  A : DWord; 
begin 
  A := GetPowerStatus(Parameter); 
end;