void __fastcall DrawLine(TCanvas *myCanvas, TPoint p1, TPoint p2)
{
myCanvas->MoveTo( p1.x, p1.y );
myCanvas->LineTo( p2.x, p2.y );
}
//---------------------------------------------------------------------------
TPoint p2 = TPoint(60, 80);
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float s = (2.0 * 3.14) / 360.0;
static float k = 0; //kąt
k += 5;
int x = p1.x + 30 * cos(k * s);
int y = p1.y + 30 * sin(k * s);
DrawLine(Image1->Canvas, TPoint(x, y), TPoint(p1.x, p1.y) );
}