Fórum Problema ao criar Campos em Tempo de execução #504468

 procedure TformTerminal. btnInserirPassosClick(Sender: TObject);
 var lblPasso,lblDescricao, lblCodigo,lblTraco:TLabel; mmDescricao:TMemo; edtCodigo:TEdit;
 I,U,N,qt,upassoTop,npassoTop, leftDescricao,topDescricao:integer;
 NomeDescricao,nultimoPasso, nlblPasso,clblPasso,nlblDescricao,nlblCodigo, nlblTraco,nmmDescricao,neditCodigo:string;

begin 
qt:=0;
 for I:= 0 to formTerminal.ComponentCount -1 do 
begin 
if formTerminal.Components[I] is TLabel then
 qt:=(qt +1); 
U:=qt div 4; 
begin 
if formTerminal.ComponentCount >1 then 
begin 
N:= (U + 1) ;
 nultimoPasso:=('lblPasso'+ IntToStr(U));
 nlblPasso:= ('lblPasso')+ IntToStr(N); 
clblPasso:='Passo ' + IntToStr(N) + ':'; 
nlblDescricao:=('lblDescricao') + IntToStr(N); 
nlblCodigo:=('lblCodigo') + IntToStr(N); 
nlblTraco:=('lblTraco') + IntToStr(N); 
nmmDescricao:=('memoDescricao') + IntToStr(N); 
neditCodigo:=('editCodigo') + IntToStr(N);

if (FindComponent(nultimoPasso)<> nil) then begin lblPasso:=TLabel.Create(self); 
lblPasso.Parent:=sbPassos; 
lblPasso.Width:=50; 
lblPasso.Height:=16; 
lblPasso.Left:=231;
 lblPasso.Font.Style:=[fsBold]; 
lblPasso.Top:=446;
 lblPasso.Caption:='Passo 0'+ IntToStr(N)+':'; 
lblPasso.Name:= 'lblPasso'+IntToStr(N);
 lblPasso.Visible:=true end;
 end; 
end; 
end; 
end;