запрет ввода одинаковых чисел в edit

[epic6]

Всем привет! сори если повторяюсь с такой темой, но не нашел ее в поиске по форуму. не могу додуматься как сделать чтобы в edit можно было вводить только разные числа. например если ввели в edit "345" и когда еще вводим например число "4" то чтобы ничего не произходило, т.е. key := #0; вот немогу додуматься как проверять одинаковые цифры, но знаю что это нужно делать в обработчике события OnKeyPress. пожалуйста, помогите кто может. заранее спасибо.

[vovk]

if pos(key,edit1.text)>0 then key:=#0;

[Neeter]

Вот что у меня получилось:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 i: integer;
begin
 //Сначала проверяем число ли введено
 if not (Key in ['0'..'9']) then Key := #0;
 for i := 1 to Length(Edit1.Text) do
  if Edit1.Text[i] = Key then Key := #0;
end;

Но так как сказал vovk, лучше будет

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9']) then Key := #0;
 if pos(key, edit1.text) <> 0 then Key := #0;
end;

[vovk]

тогда дополню бэкспейс то тоже пригодится (делит и стрелки будут работать и так)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9']) and (key<>#8) then Key := #0;
 if pos(key, edit1.text) <> 0 then Key := #0;
end;

[Олвин]

Даже ещё покороче чуть можно

not (Key in ['0'..'9']) and (key<>#8)

эквивалентно

not (Key in ['0'..'9', #8])

[epic6]

Точно! все просто. спасибо (-:

еще такой вопрос, как сделать так, чтобы в edit можно было вводить только 4х значное число? в свойстве edit'а maxlength я 4 поставил, но 1, 2х и 3х значные числа вводить можно. нужно определять длинну свойства text как я понял. но не знаю как.

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

length(Edit1.Text)
вернет длину текста в эдите