2 Анимация...

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n;
double t=0.1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
t=t+0.1;
//Form1->Canvas->Pen->Color=clRed;
Form1->Canvas->Brush->Color=clBtnFace;
Form1->Canvas->FillRect(Rect(0,0,400,400));//форма 400*400
int red = random(255); // красная составляющая
int blue = random(255); // синяя составляющая
int green = random(255); // зеленая составляющая
Form1->Canvas->Pen->Color = (TColor)RGB(red,green,blue);
//Form1->Canvas->Brush->Color = (TColor)RGB(red,green,blue);
Form1->Canvas->MoveTo(50,400);
Form1->Canvas->LineTo(50,50);
Form1->Canvas->LineTo(400,50);
n=150*sin(t);
Form1->Canvas->Brush->Color=clRed;
Form1->Canvas->Ellipse(50,50,n+150,n+150);//или (50,50,n+150,100)
}