рисунки в делфи

[Plutonesh]

Пожалуйста помогите нарисовать летящий самолетик в делфи....но надо так чтобы не с пэйнта кортинки были вставлены(....

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
var
rec : TRect;

begin
Image1.Canvas.Pen.Width := 2;
Image1.Canvas.Pen.Style := psSolid;
Image1.Canvas.MoveTo(180, 0);
Image1.Canvas.LineTo(180, 360);
Image1.Canvas.MoveTo(0, 180);
Image1.Canvas.LineTo(360, 180);

Image1.Canvas.Pen.Width := 3;
Image1.Canvas.Pen.Color := clOlive;//цвет

Image1.Canvas.MoveTo(240, 80);//Чертим линии
Image1.Canvas.LineTo(320, 80);//начальная точка линии
Image1.Canvas.MoveTo(320, 80);//конечаня точка линии
Image1.Canvas.LineTo(320, 340);
Image1.Canvas.MoveTo(320, 340);
Image1.Canvas.LineTo(200, 340);
Image1.Canvas.MoveTo(200, 340);
Image1.Canvas.LineTo(200, 220);
Image1.Canvas.MoveTo(200, 220);
Image1.Canvas.LineTo(240, 220);
Image1.Canvas.MoveTo(240, 220);
Image1.Canvas.LineTo(240, 80);

Image1.Canvas.Brush.Color := clOlive; //ЗАКРАШИВАЕМ
rec.Left := 239;
rec.Top := 79;
rec.Right := 320;
rec.Bottom := 340;
Image1.Canvas.Brush.Style := bsDiagCross;
Image1.Canvas.FillRect(rec);
rec.Left := 200;
rec.Top := 220;
rec.Right := 320;
rec.Bottom := 340;
Image1.Canvas.FillRect(rec);
end;

Короч тебе никто не нарисует вот те просто пример токо как это делаеться переделаешь сам..делаешь по анологии