[steelha]

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;