Desabilitar as teclas , e .

Pessoal como que poderia desabilitar em uma edit.text a digitação do ponto (.) e virgula (,)...?

Já tentei isso e nada!!!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key =#44) or (key = 46) then
key:=95;
end;


Por favor uma luz ai!!!
Tks.....