用DELPHI编程时，加入一个edit栏，我想控制它输入的数字不能相同，请问要怎么做！

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
str:string;
begin
str:=edit1.text;
for i:=1 to length(str) do
begin
if key=str[i] then key:=#0;
end;
end;