die musst du entweder selber schreiben, oder so kopieren wie oben genannt.
wenn bspw. dein Hauptformular Form1 heisst, kannst du es auch noch zusätzlich in die private Deklaration aufnehmen, um sie überall in dieser
Unit anzusprechen.
Delphi-Quellcode:
unit Unit1;
type
TForm1 =
class(TForm)
private
{ Private declarations }
procedure ShowTime(DoneWork: integer);
public
{ Public declarations }
end;
end;
...
procedure TForm1.ShowTime(DoneWork: integer);
begin
showmessage('
Du musst noch ' + inttostr(30 - DoneWork) + '
Stunden harte Plagen auf dich nehmen');
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowTime(10);
end;
end.