Каким способом можно нарисовать облако?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x1=900;
int y1=280;
int x2=950;
int y2=350;
 
int x3=900;
int y3=50;
int x4=950;
int y4=130;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Form1->Color = clWhite;
Canvas->Pen->Width = 3;
Canvas->Pen->Color = clBlack;
Canvas->MoveTo(0,550);     //рельсы
Canvas->LineTo(1300,550);
Canvas->MoveTo(0,540);
Canvas->LineTo(1300,540);
 
Canvas->Pen->Width = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Interval = 10;                       //движение паровоза
Image1->Left = Image1->Left - 1;
if (Image1->Left <= 50) Timer1->Enabled=False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
 
Timer1->Interval = 100;                             //дым
Refresh();
Canvas->Ellipse(x1,y1,x2,y2);
Canvas->Ellipse(x3,y3,x4,y4);
 
y1-=5;
y2-=5;
 
y3-=5;
y4-=5;
}
//---------------------------------------------------------------------------