Delphi-Quellcode:
procedure TForm5.FormShow(Sender: TObject);
begin
if ( Datetimetostr(NOW) >ExpirationDate) then
Begin
Showmessage('Funktioniert nicht mehr');
close;
End;
end;
Danke ich hab es jetzt so gelöst
hab es auch etwas geändert dass also nicht ein button geschlossen wird sondern das ganze formular