В событии Edit1KeyPress элемента Edit1 пропиши указанный код:
//
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var islegal: bool;
begin
if Key in ['A'..'Z']+['a'..'z'] then islegal := true;
if pos(Key, Edit1.Text) <> 0 then islegal := false;
if not(islegal) then Key:=#0;
end;
или готовый проект во вложении...
только переименуй файл proj1.txt в proj1.zip (этот сайт не дает архивы прикреплять)
Объяснение:
В событии Edit1KeyPress элемента Edit1 пропиши указанный код:
//
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var islegal: bool;
begin
if Key in ['A'..'Z']+['a'..'z'] then islegal := true;
if pos(Key, Edit1.Text) <> 0 then islegal := false;
if not(islegal) then Key:=#0;
end;
//
или готовый проект во вложении...
только переименуй файл proj1.txt в proj1.zip (этот сайт не дает архивы прикреплять)
Объяснение: