Fórum componentes em tempo de execucao #231537

Olá amigos programadores,
estou com um problema na criacao de um componente em tempo de execucao
Preciso de 2 compoentes:
1 Tpanel
1 Timage (que tera como PARENT o panel criado anteriormente)
Consegui criar os dois componentes... mas qdo vou passar o parametro de PARENT para o TIMAGE eu naum tenho o nome criando ainda para fornecer.. entaum usei a funcao FINDCOMPONET, para localizar o componente em tempo de execucao, mas naum teve resultados... mesmo usando a funcao FINDCOMPONENT a propriedade PARENT fica NULL
Alguem saberia como resolver isso..
segue abaixo procedimento de criacao que eu estava fazendo..
obrigado

***************************************
procedure TForm1.AdicionarImagem;
var PosLeft,PosTop : Smallint;
Image1 : TImage;
Panel1 : TPanel;
begin
//criando painel
Panel1 := TPanel.Create(Self); //cria panel
with Panel1 do
begin
Name := ´Panel´+IntToStr(PContLinha)+IntToStr(PContCol);
AutoSize := False;
Top := PTop;
Left := PLeft;
Height := PHeight;
Width := PWidth;
Parent := FrmCad_ImovelImagem;
Cursor := crHandPoint;
end;
FrmCad_ImovelImagem.Repaint;

//criando image
Image1 := TImage.Create(Self); //cria Image1
with Image1 do
begin
Name := ´Image´+IntToStr(PContLinha)+IntToStr(PContCol);
AutoSize := False;
Top := 10;
Left := 10;
Height := 10;
Width := 10;
Parent := TPanel(FindComponent(´Panel´+IntToStr(PContLinha)+IntToStr(PContCol)));
Cursor := crHandPoint;
end;
end.