Char(VK_DELETE)

[iKilledKenny]

VK_BACK = 8 = ASCII 8 = Backspace
VK_DELETE = 46 != ASCII 127 = Delete

Heisst im Klartext nimm die ASCII-Codes anstelle der VK-Codes.

Delphi-Quellcode:

procedure TfrmCreate.eKMKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', '.', Char(8), Char(127)]) then
    Key := #0;
end;