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

[demiancz]

Есть условие.
if Edit1.Text = '1' then Label 1.Caption := '1'
if Edit1.Text = '2' then Label 1.Caption := '5'

Условие: Если текст первого Эдита равен 1 то присвоить Label название 1. И после этого останговить процес.
Если же текст первого Эдита не равен 1 то нужно выполнить другую операцию
if Edit1.Text = '2' then Label 1.Caption := '5'
и т.д.
То есть будет еще
if Edit1.Text = '3' then Label 1.Caption := '8'
if Edit1.Text = '4' then Label 1.Caption := '10'

Условие должно выполняться до первого совпадения. Пока текст Эдита не совпадает с теми цифрами что надо - проверять каждый Эдит. А как только будет первое совпадение. Тогда остановить.

Пробовал так:
procedure TForm1.N1Click(Sender: TObject);
if Edit1.Text = '1' then Label 1.Caption := '1';
exit
if Edit1.Text = '2' then Label 1.Caption := '5';
end;

Но это не то.

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

1)ну тут у вас в принципе два условия одновременно не выполняться.
2)насчет примера с exit, а кто операторные скобки будет применять?
3)можно еще применить if then else if ...