[Страдалецъ]

Код:

 with TPanel.Create(Self)
 do begin
    Parent := Self;
    Top := 50;
    Left := 50;
    Width := 100;
    Height := 100;
    end;

По аналогии и TImage