[starcon]

СПС разобрался

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='') and (edit2.text='') and (edit3.text='') and (edit4.text='') and (edit5.text='') and (edit6.text='') and (edit7.text='') and (edit8.text='') and (edit9.text='') and (edit10.text='') then
begin
if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) = mrOK then qwe;
end
else
begin
qwe;
end;
end;
procedure qwe;
begin
showmessage('hello');
end;