okay, habe den Fehler gefunden, man muss anstatt $ # nehmen
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = #31;
VK_2 = #32;
VK_3 = #33;
begin
case Key of
VK_1: MMode := 1;
VK_2: MMode := 2;
VK_3: MMode := 3;
end;
end;