Ich hoffe, ich habe das nun richtig verstanden, hier mein Vorschlag:
Delphi-Quellcode:
function CheckValues(...): boolean;
begin
//Code
//Alles richtig
result := true;
//Fehler gefunden
result := false;
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
if CheckValues then
begin
//Code des OnClick
end;
//oder auch zu Beginn die Prozedur verlassen
if not CheckValues then exit;
end;