procedure TMainForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;
                                    Shift: TShiftState; X, Y: Integer);
 begin
    MainForm.WyczyscClick(Sender);
    {}
    GetCursorPos(PozycjaMyszy);       //pobierz wspolrzedne i
    PozycjaMyszy.x := PozycjaMyszy.x - (MainForm.Left + 4); //przelicz je na okno  (c) by TSD 2.05.2002
    PozycjaMyszy.y := PozycjaMyszy.y - (MainForm.Top + 23);  //bo musi uwzgledniac jego zmiane polozenia
    // zmienia wartosc zmiennej Obszar
    if ssLeft in Shift then ObszarDlg.Powieksz;  // nacisnieto lewy przycisk myszy
    if ssRight in Shift then ObszarDlg.Pomniejsz; // prawy przycisk
    // if ssMiddle in Shift then  ; {?}
    {Rysuje powtornie}
    MainForm.Rysuj1Click(sender);
  end;  //  procedure TMainForm.Image1MouseDown


//thx to Tomasz TSD Dzierkowski: tsd@wp.pl  c64.nostalgia.pl -