Как остановить выполнение button.onclick?

[igabenu]

Всем привет, возник вопрос:

Как реальзовать данный код правильно?

procedure TForm1.Button1Click(Sender: TObject);
  if pos('something',there) <>0 then
    begin
   //  Button1Click прекращает выполняться, но приложение остаеться работать
     end
     else
    // Button1Click продолжает работать по дальнейшему коду
     end;

Подскажите, как правильно реализовать данные примечания?

[Пепел Феникса]

exit; это выход из подпрограммы.

[igabenu]

Добавляю exit, дельфи пишет Compiling Project1.dproj (Debug configuration)
В чем может быть проблема?
Application.terminate вместо exit'а работает, но мне нужно не чтобы программа закрывалась, а чтобы процедура завершила свою работу

procedure TForm1.Button1Click(Sender: TObject);

  if pos('something',there) <>0 then

    begin

   exit;   //  Button1Click прекращает выполняться, но приложение остаеться работать

     end

     else

    // Button1Click продолжает работать по дальнейшему коду

     end;

[Аватар]

Или после ELSE нет BEGIN или END лишний

[spamer]

procedure TForm1.Button1Click(Sender: TObject);
var
  there: string;
begin
  there := ' there something ';
  if pos('something', there) <> 0 then
    Exit;

  ShowMessage('Test');
end;

[igabenu]

Разобрался спасибо, не работало exit по причини присутствия кнопки с аналогичным названием

[Пепел Феникса]

не работало exit по причини присутствия кнопки с аналогичным названием

какая нафиг кнопка с названием exit?
вам spamer привел готовый пример.