procedure zur plausibilitätsprüfung

[polondo]

erstmal danke für die schnellen antworten!

ich hab nun das ganze so geändert:

Delphi-Quellcode:

procedure plausi(sender:tobject);
begin
with sender as tedit do
  begin
  if (sender as tedit).text = '' then
    begin
    MessageDlg ('Please fill all required fields!',mtwarning,[mbok],0);
    (sender as tedit).SetFocus;
    end;
  end;
end;

aufgerufen wird das ganze mit plausi(sender); in einem onclick-ereignis eines buttons.
jedoch bekomm ich wieder diesen fehler: invalid class typecast

mein procedure kopf sieht folgendermaßen aus:

Delphi-Quellcode:

var
  ProductDefinitionForm: TProductDefinitionForm;
  procedure plausi(sender:tobject); <<<<<< hier hab ich den aufgeführt