[mazay]

всем огромное спасибо очень помогли ))))
SOS
еще один вопрос
как седлать так чтобы при нажатий на Button3 не только останавливались таймеры но и procedure TForm1.Button1Click(Sender: TObject);
перерисовывался
подскажите что вписать Button3 ????

var
x0,y0: Integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Image1.Canvas.Pen.Color := clWhite;
Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);
 begin
      timer1.Enabled:=false;
      timer2.Enabled:=true;
    end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.Image1.Canvas.Pen.Color :=clBlack;
Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);
  begin
      timer1.Enabled:=true;
      timer2.Enabled:=false;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
x0:=10;
y0:=10;

Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=false;
timer1.Enabled:=false;
end;

end.