procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key In ['a' .. 'z'] Then Key := #0;
{ теперь на строчные латинские буквы стринггрид реагировать не будет }
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then
Edit1.Text:=Edit1.Text+key;
end;