Buenas, he copiado el codigo tal cual me indicas y agregado al use System.TypInfo. Pero primero tube que arreglar la linea donde dice
Código Delphi
[-]var sDatosTipo:string := Trim(DM.QryPButtons.FieldByName('DatosTipo').AsString);
me da error lo coloque como siempre hago
Código Delphi
[-]Procedure xxx
Var
StadosTipo : String;
begin
....
end;
Pero aun así consigo un error el el procedimiento de crear componente
[dcc32 Error] ufrmpacientes.pas(276): E2029 '(' expected but ':=' found
Código Delphi
[-]procedure TfrmPacientes.CreateComponent(CompClass: TComponentClass; iTag, iWidth, iLeft: integer; sCaption: string);
begin
comp := TWinControl(CompClass.Create(Self));
comp.Name := comp.ClassName + IntToStr(contcomp);
comp.Parent:= Cat;
comp.Tag := iTag;