G>for(int i=0;i<Form1->ComponentsCount; i++)
G>{
G>if(<Компонент имеет свойство Caption, но как это сделать?>)
G>Form1->Components[i]->Caption=Form1->Components[i]->Name; // <<<----- вот если бы так можно было
G>}

type
    TCrackControl = class (TControl)
    published
        property Caption;
    end;
    
var
    i: Integer;
    C: TControl;
     
begin     
    for i := 0 to Form1.ComponentCount - 1 do
        begin
            C := Form1.Components[i];
            if (C is TLabel) or (C is TForm) then
              TCrackControl(C).Caption := 'Text';
        end;

class TCrackControl : public TControl
{
__published:
                __property Caption;
};

int i;
TComponent *Comp=new TComponent(this);
for(i;i<Form1->ComponentCount;i++)
        {
        Comp=Form1->Components[i];
        if(AnsiString(Comp->ClassName())=="TLabel")
                {
                TCrackControl(Comp).Caption="text"; // строка на которую сыпятся все шишки
                }
        }

class TCrackControl : public TControl
{
__published:
                __property Caption;
public: __fastcall TCrackControl (TComponent *Comp)
};

G>class TCrackControl : public TControl
G>{
G>__published:
G>                __property Caption;
G>};

G>int i;
G>TComponent *Comp=new TComponent(this);
G>for(i;i<Form1->ComponentCount;i++)
G>        {
G>        Comp=Form1->Components[i];
G>        if(AnsiString(Comp->ClassName())=="TLabel")
G>                {
G>                TCrackControl(Comp).Caption="text"; // строка на которую сыпятся все шишки
G>                }
G>        }
G>

((TCrackControl) Comp).Caption = "text"

G>но так делать нельзя. замаялся уже. народ, помогите.

unit translate;

interface

uses SysUtils, Classes, Forms, IniFiles, ActnList;


function TranslateProp(Dict : TIniFile; ASection, AIdent1, AIdent2 : string;
                                                var AValue : string): boolean;

procedure TranslateFormControls(AForm : TForm; ADictFileName : string;
                              isTranslateCaption : boolean = True);


implementation

uses TypInfo, Msg;

//Возвращаем строку где ## заменяются назад как и було ентерами(переводами строк)
function GetTextWithReturn(AText: String): string;
begin
  Result:=StringReplace(AText, '##', #13+#10,[rfReplaceAll]+[rfIgnoreCase]);
end;

//если в строке есть перевод каретки то его заменяем на ##
// для чего - в ини-файл без этого никак
function SetTextWithReturn(AText: String): string;
begin
  Result:=StringReplace(AText, #13+#10, '##',[rfReplaceAll]+[rfIgnoreCase]);
end;



function TranslateProp(Dict : TIniFile; ASection, AIdent1, AIdent2 : string;
                                                var AValue : string): boolean;
begin
  Result:=False;
  try
    if AIdent1='' then Exit;
    AValue:=Dict.ReadString(ASection, AIdent1+'.'+AIdent2, '');
    if AValue='' then Dict.WriteString(ASection, AIdent1+'.'+AIdent2, '')
      else Result:=True;
  except
  end;
end;


procedure TranslateFormControls(AForm : TForm; ADictFileName : string;
                              isTranslateCaption : boolean = True);
var Dict : TIniFile;
    I : Integer;
    Obj : TComponent;
    PropInfo1 : PPropInfo;
    PropInfo2 : PPropInfo;
    AValue : string;
begin
  try
    Dict:=TIniFile.Create(ExtractFilePath(ParamStr(0))+ADictFileName);

    if not FileExists(ExtractFilePath(ParamStr(0))+ADictFileName) then Exit;

{Если нужно переводить заголовок формы то}
    if isTranslateCaption and TranslateProp(Dict, AForm.Name ,'Form','Caption', AValue) then
          AForm.Caption:=AValue;

    { Переводим заголовки компонентов формы}
    for I:=0 to AForm.ComponentCount-1 do
    begin
      Obj:=AForm.Components[i];
      PropInfo1:=GetPropInfo(Obj.ClassInfo, 'Action');
      if (PropInfo1=nil) or
        ((PropInfo1<>nil) and (PropInfo1.PropType^.Kind = tkClass)
          and (GetObjectProp(Obj, 'Action', TAction)=nil)) then
      begin
        PropInfo2:=GetPropInfo(Obj.ClassInfo, 'Caption');
        if PropInfo2<>nil then
        begin
          if (PropInfo2^.PropType^.Kind=tkLString) and ((GetStrProp(Obj, 'Caption')<>'')
          and (GetStrProp(Obj, 'Caption')<>'-')) then
           if TranslateProp(Dict, AForm.Name ,Obj.Name, 'Caption', AValue) then
             SetStrProp(Obj, PropInfo2, AValue);
        end;

        PropInfo2:=GetPropInfo(Obj.ClassInfo, 'Hint');
        if PropInfo2<>nil then
        begin
          if (PropInfo2^.PropType^.Kind=tkLString) and (GetStrProp(Obj, 'Hint')<>'')then
           if TranslateProp(Dict, AForm.Name ,Obj.Name,'Hint', AValue) then
             SetStrProp(Obj, PropInfo2, GetTextWithReturn(AValue));
        end;
      end;

      PropInfo2:=GetPropInfo(Obj.ClassInfo, 'Title');
      if PropInfo2<>nil then
      begin
        if (PropInfo2^.PropType^.Kind=tkLString) and (GetStrProp(Obj, 'Title')<>'')then
         if TranslateProp(Dict, AForm.Name ,Obj.Name,'Title', AValue) then
           SetStrProp(Obj, PropInfo2, AValue);
      end;

      PropInfo2:=GetPropInfo(Obj.ClassInfo, 'Filter');
      if PropInfo2<>nil then
      begin
        if (PropInfo2^.PropType^.Kind=tkLString) and (GetStrProp(Obj, 'Filter')<>'')then
         if TranslateProp(Dict, AForm.Name ,Obj.Name,'Filter', AValue) then
           SetStrProp(Obj, PropInfo2, AValue);
      end;
    end;


    Dict.Free;
  except
//    ShowMessage('Language file is not loaded!');
  end;
end;