Muy buenas, me ha costado cerca de una hora(espero no llegar tarde) :$ , pero aqui esta
, coloca el siguiente codigo en el evento onkeypress de los componentes.
Código Delphi
[-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key =#45 Then Begin
keybd_event(16,0,0,0); keybd_event(9,0,0,0); Keybd_event(16,0,2,0); keybd_event(9,0,2,0); Key := #0
end;
if key=#43 then begin
keybd_event(9,0,0,0); keybd_event(9,0,2,0); Key:=#0;
end;
end;
Espero que te sirva, si no es esto lo que querias dilo
.