Edit'e harf girilsin

Edit1 kutusuna sadece harflerin girilmesini sağlayan kod=

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (key<'A') or (key>'Z') then key:=#0;

end;

end.