Правильно ли я ввел область рисования( размер формы 600 на 370)?

procedure TForm1.FormCreate(Sender: TObject);
begin
with canvas do
begin
  (300,300)  {Область рисования}
  Brush.Color := clBtnFace;
with Font do    =
begin
    Name := 'Times New Roman';
    Size := 12;
    Style := [fsBold,fsItalic];
 
end;
 
end;
 
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientWidth:=600;
ClientHeight:=370;
position:=poScreenCenter;
with PaintBox1 do
 begin
  Width:=300;
  Height:=300;
  Left:=(Form1.ClientWidth-Width) div 2;
  Top:=(Form1.ClientHeight-Height)div 2;
 end;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var x,y:integer;
begin
x:=PaintBox1.Width div 2;
y:=PaintBox1.Height div 2;
with PaintBox1.canvas do
 begin
  brush.Color:=clYellow;
  fillrect(cliprect);
  brush.Color:=clRed;
  pen.Color:=clRed;
  ellipse(x-100,y-50,x+100,y+50);
 end;
end;

TextOut(410,22,'(TextOut)'); //Вывод текста
Pen.Color := clBlack; //Цвет карандаша – черный 
Brush.Color := clWhite; //Цвет кисти – белый
Pixels[350,80] := clRed; //Вывод точки
Brush.Color := clBtnFace; 
{Смена цвета на цвет фона (цвет кнопки в стандарте Windows) 
для вывода текста-подсказки}
 TextOut(335,85,'(Pixels)');
 Brush.Color := clWhite;
 MoveTo(400,80); //Переместить курсор
 LineTo(450,80); //Соединить с точкой – получится линия
 Brush.Color := clBtnFace;
 TextOut(405,85,'(MoveTo)');
 TextOut(405,100,'(LineTo)');
 Brush.Color := clWhite;
 PolyLine([Point(480,100),Point(505,50),Point(530,100)]); //Ломаная кривая
 Brush.Color := clBtnFace;
 TextOut(480,105,'(PolyLine)');
 Brush.Color := clWhite;
 Rectangle(325,125,375,175);  //Прямоугольник
 Brush.Color := clBtnFace;
 TextOut(325,180,'(Rectangle)');
 Brush.Color := clWhite;
 RoundRect(400,125,455,175,20,20); //Прямоугольник с закругленными углами
 Brush.Color := clBtnFace;
 TextOut(400,180,'(RoundRect)');
 Brush.Color := clWhite;
 PolyGon([Point(480,175),Point(505,125),Point(530,175)]); //Многогранник
 Brush.Color := clBtnFace;
 TextOut(480,180,'(PolyGon)');
 Brush.Color := clWhite;
 Ellipse(325,210,375,260); //Эллипс
 Brush.Color := clBtnFace;
 TextOut(335,270,'(Ellipse)');
 Brush.Color := clWhite;
 Arc(400,210,455,260,427,210,455,235); //Дуга
 Brush.Color := clBtnFace;
 TextOut(420,270,'(Arc)');
 Brush.Color := clWhite;
 Pie(480,210,530,260,530,234,504,210); //Сектор
 Brush.Color := clBtnFace;
 TextOut(500,250,'(Pie)');
• для демонстрации мультипликации запрограммировать перемещение глаз у кота «влево – вправо». Добавить начальную прорисовку глаз:
Pen.Color := clWhite; //Цвет глаз – белый – карандаш  
Brush.Color := clWhite; //Цвет глаз – белый – кисть
//Таким образом, рисуем и закрашиваем одним цветом   
Ellipse(73,105,113,147); // Левый глаз
Ellipse(138,105,178,147); // Правый глаз
Pen.Color := clGreen; //Цвет зрачков – зеленый   
Brush.Color := clGreen; //Цвет зрачков – зеленый
Pie(85,115,110,145,90,135,60,145); // Левый зрачок
Pie(150,115,175,145,155,135,75,145); // Правый зрачок
 end; // Конец рисования на холсте