Остановить принудительно.

[D.O.G]

Как принудительно остановить процедуры если не было выполнено первоначальное условие?

procedure TForm7.Button1Click(Sender: TObject);
var
 name_mash, cpu, memory, hdd, mother_board, corp, datas:String;
begin
 ClientDataSet1.Close;
 ClientDataSet1.Open;
 SQLDataSet1.Close;
 SQLDataSet1.Open;
 name_mash:=DBLookupComboboxEh1.Text;
 cpu:=Edit1.Text;
 memory:=Edit2.Text;
 hdd:=edit3.Text;
 mother_board:=Edit4.text;
 corp:=Edit5.Text;
// datas:=DateToStr(Date);
 if DBDateTimeEditEh1.Visible=True then datas:=DBDateTimeEditEh1.Text else datas:=DateToStr(Date);
 if DBLookupComboboxEh1.Text=Null then ShowMessage('Выберите имя компьютера');// Принудительно остановить если условие не соблюдается.
 ClientDataSet1.Edit;
 ClientDataSet1.Insert;
 ClientDataSet1.FieldByName('name_mash').Value:=name_mash;
 ClientDataSet1.FieldByName('cpu').Value:=cpu;
 ClientDataSet1.FieldByName('memory').Value:=memory;
 ClientDataSet1.FieldByName('hdd').Value:=hdd;
 ClientDataSet1.FieldByName('mother_board').Value:=mother_board;
 ClientDataSet1.FieldByName('corp').Value:=corp;
 ClientDataSet1.FieldByName('datas').Value:=datas;
 ClientDataSet1.Post;
 ClientDataSet1.ApplyUpdates(0);
 DBLookupComboboxEh1.Text:='';
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit4.Text:='';
 Edit5.Text:='';
end;

[Lokos]

заключить все это в составной оператор
Begin
End;
И тогда если условие не выполнится выполнение не произойдет

[D.O.G]

спасибо. забыл вообще про

begin .... end;