Key-Code mit Sender Tag ?

[Privateer3000]

Nach mehrmaligen durchlesen meines Posts, verstehe ich auch nix ...
Nochmal von vorn:
Im Keypress-Ereignis eines Inputfeldes werden verschiedene
Tasten ausgewertet. Das funktioniert mit Komponenten (zB Buttons)
wunderbar. Nun wollte ich das aus Keyboard ausweiten.
ZB
Button A (Tag=0) = Tastendruck auf +
Button B (Tag=1) = Tastendruck auf -
in der procedure p1_1 werden die EIngaben ausgewertet.
klappt alles wunderbar.
Nun das ganze mit Keyboardtasten
Taste + (Tag=0) ?

Keypress-Source:

Delphi-Quellcode:

procedure TKasse.minputKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Char(VK_BACK),'+','-','#',',']) then
  Key := #0;
if (Key in ['+']) then begin
  p1_1Click(Sender);
  //minput.Text:='';
end;
end;

wie sage ich der p1_1 procedure welche SenderTag gesendet wird?

Hoffe, dass das ganze bissl deutlicher was