Procedure TMainGraf.StringGrid1SelectCell(Sender: TObject; ACol

ARow: Integer; var CanSelect: Boolean);

begin

CSel:=ACol;

RSel:=ARow;

if CSel<>RSel then Edit2.Text:=' '+inttostr(ARow)+' - '+inttostr(ACol)

else

begin

Timer1.Interval:=0;

Timer1.Interval:=1000;

CSel:=0;

RSel:=0;

end;

if ShowGraf then Visualization(MainGraf.image1.Canvas,2);

end;

procedure TMainGraf.StringGrid1MouseUp(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if ShowGraf then

begin

Timer1.Interval:=0;

Timer1.Interval:=1000;

Timer1.Enabled:=true;

end;

end;