Delphi вопрос по поводу ------Create(self)

Question

Предположим есть что то типа такого 
.. blaa... bla...bla .. 
var 
Form: TForm; 
Shape: TShape; 
.. blaa... bla...bla .. 
Shape.Create(self) 
.. blaa... bla...bla .. 
А теперь к сути вопроса, как сделать так, дабы Shape появлялся с заданными параметрами, а не стандартными?

Михаил Яндулов · Accepted Answer

with TShape.Create(self) do begin 
Width:=200; 
Height:=5; 
Parent:=self; 
end; 
 
Идея понятна?