Цифры в Edit(delphi)

[CAMOBAP]

Как можно заставить вписывать в Edit только цифры с 1 по 4.
По нажатию кнопки должно выдавать что в Edit вписаны не верные значения

[GetMax]

Видимо так

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not (key in ['1'..'4']) then
  Begin
    ShowMessage('Неверный ввод');
    Key:=chr(0);
    Exit
  End;
end;

end.

[CAMOBAP]

собственно не совсем работает.даже при вводе в edit правильного числа говорит,что неверно. Под кнопкой подразумевался button.

[_Engine_]

тогда так

procedure TForm1.Button1Click(Sender: TObject);
 var i : Integer;
begin
  for i := 1 to length(Edit1.Text) do
    if not (Edit1.Text[i] in ['1'..'4']) then ShowMessage('Ошибка');
end;

[CAMOBAP]

а при вводе текста зацикливает и showmessage выводиться беспрерывно.