[fofka]

Возможно закидаете шапками, но сделал так. Работает.

Код:

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
Всем большое спасибо за внимание и помощь.