Form deaktiviert sich selber

[DelphiMini]

Hier ist die Prozedur!

Delphi-Quellcode:

procedure THauptformular.FeldMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var MX, MY,XX,YY : integer;
begin
 if EinfugenAn = false then
 begin
  MX := trunc(X / Kastchenbreite);
  MY := trunc(Y / Kastchenbreite);
  if Shift = [ssLeft] then
  begin
   neu[MX,MY] := not(neu[MX,MY]);
   PunktZeichnen;
   Rander;
  end;
 end;

 if EinfugenAn = true then
 begin
  MX := trunc(X / Kastchenbreite);
  MY := trunc(Y / Kastchenbreite);
  if Shift = [ssLeft] then
  begin
   for XX := 0 to FigurBreite2+1 do
   begin
    for YY := 0 to FigurHohe2+1 do
    begin
     neu[MX+XX,MY+YY] := FigurEinfugen[XX,YY];
    end;
   end;
   PunktZeichnen;
   Rander;
  end;
 end;

// EinfugenAn := false;
end;