procedure TForm1.Button1Click(Sender: TObject);
var
  Titel, Text, sTimeout: String;
  Timeout: Integer;
begin
  if InputQuery('Titel', 'Titel eingeben:', Titel) and
     InputQuery('Text', 'Text eingeben:', Text) and
     InputQuery('Timeout', 'Timeout eingeben (in Sekunden):', sTimeout) then // egal wie wenig Sekunden, bleibt immer da :(
  begin
    if TryStrToInt(sTimeOut, TimeOut) then
      CoolTrayIcon1.ShowBalloonHint(Titel, Text, bitInfo, TimeOut)
    else
      MessageDlg('Timeout ungültig', mtError, [mbOk], 0);
  end;
end;