"Nicht genügend wirkliche Parameter"

[masterklingon]

Hi Leute
Wenn ich eine Andere Procedure starten will kommt immer der im Titel genannte Fehler.

Delphi-Quellcode:

 private
    { Private-Deklarationen }
 procedure mdown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

...
         mdown(Sender); //die Procedure starten <BR>
...

Delphi-Quellcode:

procedure Tfm_ttt.mdown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
var Zeile,Spalte:Integer;
begin
if player=true
 then
  begin
   TPanel(Sender).BevelInner:=bvLowered;
   TPanel(Sender).BevelOuter:=bvNone;
   end
 else
  begin
   TPanel(FindComponent(Feldname)).BevelInner:=bvLowered;
   TPanel(FindComponent(Feldname)).BevelOuter:=bvNone;
   end;

if player=true then Feldname:=TPanel(Sender).Name;
Zeile:=StrToInt(Feldname[3]);
Spalte:=StrToInt(Feldname[4]);
if rg_player.ItemIndex=0
 then Feld[Zeile,Spalte]:=1
 else Feld[Zeile,Spalte]:=10;

  if rg_player.ItemIndex=0
 then TPanel(FindComponent(Feldname)).caption:='0'
 else TPanel(FindComponent(Feldname)).Caption:='X';

{if player=false then mup}

end;