1:

Procedure uebersetzen(xform: Tform);					

1:
2:
3:
4:

if xyz.caption='' then
//keine caption
else
//caption vorhanden					

1:
2:

for i:=0 to xform.ControlCount-1 do
    (xform.controls[i] as TControl).caption:='Test';					

1:
2:
3:
4:
5:
6:
7:
8:

type
  THookControl = class(TControl)
    public
      property Caption;
  end;

for i := 0 to xForm.ControlCount - 1 do 
  THookControl(xForm.Controls[i]).Caption := 'Test';					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.CreateEvent {...};
begin
  Caption := cLngFormCaption;
  btnOk.Caption := cLngOk;
  btnCancel.Caption := cLngCancel;
  {...}
End;					

1:
2:
3:
4:

procedure SetCaptionProp(instance: TObject; value: string);
begin
 SetPropValue(instance,'Caption',value);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function IsPropAvailable(instance: TObject; name: string): boolean;
var
 x: tPropList;
 i,j: integer;
begin 
 result := false;
 j:= GetPropList(PTypeInfo(instance.ClassInfo), [tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat,
    tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString,
    tkVariant, tkArray, tkRecord, tkInterface, tkInt64, tkDynArray], @x, false);
 for i := 0 to j-1 do 
  if uppercase(x[i].Name) = uppercase(name) then 
  begin 
   result := true;
   exit;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function SetCaptionSave(instance: TObject; value: string): boolean;
begin
 result := true;
 if IsPropAvailable(instance, 'caption') then
  SetPropValue(instance,'caption',value)
 else
  result := false;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function SetPropertySave(instance: TObject; prop: string; value: variant): boolean;
begin
 result := true;
 if IsPropAvailable(instance, prop) then
  SetPropValue(instance, prop, value)
 else
  result := false;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TStringArray = array of string;

...

function GetStringProps(instance: TObject): TStringArray;
var
 j: integer;
 x: TPropList;
begin
 j:= GetPropList(PTypeInfo(TButton.ClassInfo), [tkString, tkWChar, tkLString, tkWString], @x, false);
 setlength(result, j);
 for j := 0 to length(result)-1 do result[j] := x[j].Name;
end;