[timeon]

Есть следующий код:

Код:

Uses TypInfo;

procedure ChangeProperty(FormX: TForm);
var
  PropInfo: PPropInfo;
  i: integer;
  s: AnsiString;
begin
  S:= 'ABCDEF';
  for i:=0 to FormX.ComponentCount-1 do
  begin
    // Ищем у всех компонентов
    PropInfo:= GetPropInfo(FormX.Components[i].ClassInfo, 'Caption');
    // Если свойство есть
    If PropInfo <> nil then
      // Передаем ему адрес строки 
      SetOrdProp( FormX.Components[i], PropInfo, Integer(@S[1]));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeProperty(Self);
end;

В таком виде все отлично работает, т.е при нажатии на кнопку Caption'ы всех компонентов меняются на ABCDEF, с другими свойствами тоже работает (цвет, текст и.т.д). Но если вместо 'Caption' написать 'Hint' то программа вываливается с исключением "Project %ProjectName% faulted with message: 'access violation at 0x7c92a5fb: write of address 0x00030ff4'. Process Stopped. Use Step or Run to continue". А мне нужно менять как раз хинты. Причем ошибка возникает независимо от того, включены хинты или выключены, и на форме включал и выключал. Уже всяко пробовал, никак не работает. Может кто знает в чем причина, в интернете ничего не нашел.
ЗЫ: У меня Delphi 7.

[angvelem]

По поводу того, что в сети ничего нет, это зря. Или совсем лень искать было.
По теме: нужно использовать - SetStrProp(Form1.Components[i], PropInfo, S);

[cotseec]

для хинта s: AnsiString; должна быть глобальной,
либо, как сказано выше, использовать SetStrProp(FormX.Components[i], PropInfo, S);
или SetStrProp(FormX.Components[i],'Hint',S);

[timeon]

Спасибо, все заработало. Видимо плохо искал