Einstellungen im Editfenster

[HLukas]

und warum nicht so !

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#65..#90 : begin end;
else key := #0;
end;
end;