Рисование эллипса на имейдж с координатами из label

[Xatiko]

Доброго времени суток!
Есть проблема при рисовании эллипса с координатами из 2 label. Один label нужен для координаты x, а другой для координаты y.
Мои попытки не увенчались успехом.

procedure TForm1.Button5Click(Sender: TObject);
var x,y:Integer;
begin

X:= StrToint(label37.Caption);
Y:= StrToint(label38.Caption);
image1.canvas.Ellipse((x)-2, (y)-2, (x)+2, (y)+2);

end;

Выдает ошибку: Can only modify an image if it contains a bitmap.
А еще если значение не целое, а они по формуле часто получаются не целые выдает: (например) "13.5" is not a valid integer value.
Добрые люди! Помогите справиться с этими 2 ошибками.

[BDA]

procedure TForm1.Button5Click(Sender: TObject);
var
  bmp: tbitmap;
  x, y: integer;
begin
  bmp := tbitmap.Create;
  bmp.Height := 100;
  bmp.Width := 100;
  x := round(StrToFloat(Label37.Caption));
  y := round(StrToFloat(Label38.Caption));
  bmp.Canvas.Ellipse(x - 2, y - 2, x + 2, y + 2);
  Image1.Picture.Assign(bmp);
  bmp.Free;
end;

[Xatiko]

BDA выручаешь меня 2 раз уже) Счастья тебе!

[Xatiko]

И еще вопрос можно ли сделать так чтоб объекты нарисованные ранее не исчезали?

[BDA]

var
  Form1: TForm1;
  bmp: tbitmap;

...

procedure TForm1.Button5Click(Sender: TObject);
var
  x, y: integer;
begin
  x := round(StrToFloat(Label37.Caption));
  y := round(StrToFloat(Label38.Caption));
  bmp.Canvas.Ellipse(x - 2, y - 2, x + 2, y + 2);
  Image1.Picture.Assign(bmp);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := tbitmap.Create;
  bmp.Height := 100;
  bmp.Width := 100;
  Image1.Picture.Assign(bmp);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

[Xatiko]

Стыдно спрашивать уже а как закрасить этот эллипс покапался в инете сделал как там не получается..

bmp.canvas.brush:=clred

пробовал так.

[BDA]

Попробуйте так:

bmp.canvas.brush.color:=clred;

[Xatiko]

Не получается.
Но все равно спасибо за помощь!!

[BDA]

Пожалуйста.
У меня работает:

begin
  x := round(StrToFloat(Label37.Caption));
  y := round(StrToFloat(Label38.Caption));
  bmp.Canvas.Brush.Color := clred;
  bmp.Canvas.Ellipse(x - 2, y - 2, x + 2, y + 2);
  Image1.Picture.Assign(bmp);
end;

Кружок с черной рамкой, заполненный красным цветом.