[Karsh]

Отслеживай нажат ли Ctrl, например так:

Код:

var
  IsCtrl: Boolean;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not IsCtrl then
    if NOT (Key in ['0'..'9', ',', #8, '-']) then
      Key:=#0;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssCtrl in Shift then IsCtrl:= True;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IsCtrl:= False;
end;