Возможно закидаете шапками, но сделал так. Работает.
Код:
procedure TForm1.CreateTrayIcon;
var
nidata : TNotifyIconData;
s1: String;
begin
with nidata do
begin
s1 := Edit1.Text ;
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYICONNOTIFY;
hIcon := Application.Icon.Handle;
szTip :='Моя прога. '+ #13 + 'Такое число: ';
StrCat(szTip, @s1[1]); // Добавляем к szTip строку s1
end;
Shell_NotifyIcon(NIM_ADD, @nidata);
end;
При наведении курсора, получаю всплывающую подсказку в две строки:
"Моя прога"
"Такое число: " из Edit1
Всем большое спасибо за внимание и помощь.