Ich weiß nicht, du könntest Variablenparameter vom Typ String verlangen und die Ergebnisse dort hineinschreiben, du könntest auch ein Form angeben lassen das Labels enthält, oder du machst es so wie Matze gesagt hat:
Zitat von
Matze:
Binde diese procedur unter
private ein, oder schreibe einfach immer
Form1.Label1.Caption := ...
Aber ich kann dir auch die komplette
Unit zeigen, falls du das möchtest.
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure GetStatus;
public
...
procedure TForm1.GetStatus;
var SystemPowerStatus: TSystemPowerStatus;
begin
...