eigentlich ganz einfach:
Delphi-Quellcode:
Procedure ShowTime(DoneWork: integer); //cooler Titel :-) donework in Stunden
begin
showmessage('Du musst noch ' + inttostr(30 - DoneWork) + ' Stunden harte Plagen auf dich nehmen');
end;
Dann musst du die Procedur nur noch aufrufen und die Stundenzahl übergeben, die du schon hinter dir hast.
War es das?
Gruß alias5000