[lKinGl]

ya lo solucioné logra restringir todas las teclas menos los números y las comas de esta forma (Aunque no era lo que queria me soluciona el problema):

Código Delphi [-]
 procedure TForm13.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
 if not(Key in ['0'..'9',',',#8]) then   
   begin     
     Key:=#0;   
   end; 
end;