[Aristarh Dark]

Я аж дельфи запустил...

Код:

Код:

var
  a:TNotifyIconData;
  s:string;
begin
  s:='some text '+Form1.Caption;
  move(s[1],a.szTip[0],max(128,Length(s)));
  ShowMessage(a.szTip);
end;

Результат на картинке