Use CoolTrayIcon 4.3.1. Also added screenshots.

README.md

@@ -0,0 +1,5 @@
+SETIstats
+=========
+
+Needs [CoolTrayIcon](http://subsimple.com/delphi.php) (tested with 4.3.1).
+

SETIstatsU.dfm

@@ -16,7 +16,6 @@ object MainForm: TMainForm
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = False
-  Position = poDefaultPosOnly
   ShowHint = True
   OnClose = FormClose
   OnCreate = FormCreate
@@ -58,7 +57,6 @@ object MainForm: TMainForm
     Height = 265
     ActivePage = SkyMapSheet
     HotTrack = True
-    TabIndex = 2
     TabOrder = 5
     TabPosition = tpBottom
     object AnalSheet: TTabSheet
@@ -198,7 +196,6 @@ object MainForm: TMainForm
         Top = 16
         Width = 17
         Height = 201
-        Min = 0
         Max = 10000
         Orientation = pbVertical
         TabOrder = 0
@@ -502,12 +499,9 @@ object MainForm: TMainForm
         Height = 21
         Associate = Refresh
         ArrowKeys = False
-        Min = 0
         Max = 1000
-        Position = 0
         TabOrder = 1
         Thousands = False
-        Wrap = False
       end
       object SETIsap: TEdit
         Left = 72
@@ -1067,7 +1061,6 @@ object MainForm: TMainForm
     Width = 705
     Height = 12
     Hint = 'prog [state.sah]'
-    Min = 0
     Max = 10000
     Smooth = True
     TabOrder = 9
@@ -1092,69 +1085,6 @@ object MainForm: TMainForm
     OnTimer = Timer2Timer
     Left = 32
   end
-  object TrayIcon: TTrayIcon
-    Active = True
-    ShowDesigning = False
-    Icon.Data = {
-      0000010002001010100000000000280100002600000010100000010008006805
-      00004E0100002800000010000000200000000100040000000000C00000000000
-      0000000000001000000010000000000000000000800000800000008080008000
-      00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
-      0000FF00FF00FFFF0000FFFFFF00000000000000000000000A00A00A00000000
-      00AA0AA000000000002AAA200000000000022200000000000002020000000000
-      00022200000000000222222200000000222222222000000A2A2A2A2A2A00000B
-      BBBBBBBBBB0000000A00B00A0000000000A0B0A000000000000BBB0000000000
-      0000B00000000000000000000000E0030000F0070000F80F0000F0070000F80F
-      0000FC1F0000F80F0000F0070000E0030000C0010000C0010000C0010000F80F
-      0000FC1F0000FE3F0000FF7F0000280000001000000020000000010008000000
-      0000400100000000000000000000000000000000000000000000800080008000
-      000080800000008000000080800000008000C0C0C000C0DCC000F0CAA6008080
-      8000FF00FF00FF000000FFFF000000FF000000FFFF000000FF00FFFFFF00F0FB
-      FF00A4A0A00000003E0000005D0000007C0000009B000000BA000000D9000000
-      F0002424FF004848FF006C6CFF009090FF00B4B4FF0000143E00001E5D000028
-      7C0000329B00003CBA000046D9000055F000246DFF004885FF006C9DFF0090B5
-      FF00B4CDFF00002A3E00003F5D0000547C0000699B00007EBA000093D90000AA
-      F00024B6FF0048C2FF006CCEFF0090DAFF00B4E6FF00003E3E00005D5D00007C
-      7C00009B9B0000BABA0000D9D90000F0F00024FFFF0048FFFF006CFFFF0090FF
-      FF00B4FFFF00003E2A00005D3F00007C5400009B690000BA7E0000D9930000F0
-      AA0024FFB60048FFC2006CFFCE0090FFDA00B4FFE600003E1400005D1E00007C
-      2800009B320000BA3C0000D9460000F0550024FF6D0048FF85006CFF9D0090FF
-      B500B4FFCD00003E0000005D0000007C0000009B000000BA000000D9000000F0
-      000024FF240048FF48006CFF6C0090FF9000B4FFB400143E00001E5D0000287C
-      0000329B00003CBA000046D9000055F000006DFF240085FF48009DFF6C00B5FF
-      9000CDFFB4002A3E00003F5D0000547C0000699B00007EBA000093D90000AAF0
-      0000B6FF2400C2FF4800CEFF6C00DAFF9000E6FFB4003E3E00005D5D00007C7C
-      00009B9B0000BABA0000D9D90000F0F00000FFFF2400FFFF4800FFFF6C00FFFF
-      9000FFFFB4003E2A00005D3F00007C5400009B690000BA7E0000D9930000F0AA
-      0000FFB62400FFC24800FFCE6C00FFDA9000FFE6B4003E1400005D1E00007C28
-      00009B320000BA3C0000D9460000F0550000FF6D2400FF854800FF9D6C00FFB5
-      9000FFCDB4003E0000005D0000007C0000009B000000BA000000D9000000F000
-      0000FF242400FF484800FF6C6C00FF909000FFB4B4003E0014005D001E007C00
-      28009B003200BA003C00D9004600F0005500FF246D00FF488500FF6C9D00FF90
-      B500FFB4CD003E002A005D003F007C0054009B006900BA007E00D9009300F000
-      AA00FF24B600FF48C200FF6CCE00FF90DA00FFB4E6003E003E005D005D007C00
-      7C009B009B00BA00BA00D900D900F000F000FF24FF00FF48FF00FF6CFF00FF90
-      FF00FFB4FF002A003E003F005D0054007C0069009B007E00BA009300D900AA00
-      F000B624FF00C248FF00CE6CFF00DA90FF00E6B4FF0014003E001E005D002800
-      7C0032009B003C00BA004600D9005500F0006D24FF008548FF009D6CFF00B590
-      FF00CDB4FF0006060600121212001F1F1F002C2C2C0039393900454545005252
-      52005F5F5F006C6C6C007878780085858500929292009F9F9F00ABABAB00B8B8
-      B800C5C5C500D2D2D200DEDEDE00EBEBEB00F8F8F8000000ECECECECECECECEC
-      ECECECECECEC0000ECECEC90ECEC8EECEC90ECECECEC0000ECECECEC908EEC8E
-      90ECECECECEC0000ECECECEC8E9090908EECECECECEC0000ECECECECEC8E8E8E
-      ECECECECECEC0000ECECECECEC8CEC8CECECECECECEC0000ECECECECEC8C8C8C
-      ECECECECECEC0000ECECEC8C8F8E8E8E8F8CECECECEC0000ECEC8E908F8F8F8F
-      8F908EECECEC0000EC8C9092909290929092908CECEC0000EC95959595959595
-      95959595ECEC0000ECECEC92ECEC95ECEC92ECECECEC0000ECECECEC92EC95EC
-      92ECECECECEC0000ECECECECEC959595ECECECECECEC0000ECECECECECEC95EC
-      ECECECECECEC0000ECECECECECECECECECECECECECECE003E2E2F007E2E2F80F
-      E249F00749E2F80F5449FC1FE2E2F80FE2E2F007E2E2E003E2E2C001E2E2C001
-      E2E2C001E2E2F80F49E2FC1FE2E2FE3FE2E2FF7FE2E2}
-    ToolTip = 'SETI@home Statistics'
-    OnClick = ShowHideItemClick
-    PopupMenu = PopupMenu
-    Left = 64
-  end
   object PopupMenu: TPopupMenu
     Left = 96
     object ShowHideItem: TMenuItem
@@ -1170,4 +1100,38 @@ object MainForm: TMainForm
       OnClick = ExitItemClick
     end
   end
+  object TrayIcon: TCoolTrayIcon
+    CycleInterval = 0
+    Icon.Data = {
+      0000010001002020040000000000E80200001600000028000000200000004000
+      0000010004000000000000020000000000000000000000000000000000000000
+      000000008000008000000080800080000000800080008080000080808000C0C0
+      C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000006444
+      4444444444444444444444444400666666666666666666666666666666007FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF8006FFFFFFFFFFFFFFFFFFFFFFFFFFFF8006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF8006FFFFFFFFFFFFFFFFFFFFFFFFFFFF8006FFF
+      FFFFFFFFFFFFFFFFFFFFFFFFF8006FFFFFFFFFFFFFFFFFFFFFFFFFFFF8006888
+      8888888888888888888888888600666666666666666666666664666666006666
+      666666666666666666867E697600668EEEEEEEEEEEEEEEE66EE6EE6766006666
+      6666666666666666666666666600000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FFFFFFFFFFFF8000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000001FFFFFFFFFFFFFFFFFFFFFFFF}
+    IconVisible = True
+    IconIndex = 0
+    PopupMenu = PopupMenu
+    OnClick = ShowHideItemClick
+    Left = 144
+    Top = 65200
+  end
 end

SETIstatsU.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, IniFiles, ComCtrls, ExtCtrls, DateUtils, TrayIcon,
+  Dialogs, StdCtrls, IniFiles, ComCtrls, ExtCtrls, DateUtils, CoolTrayIcon,
   Menus, Math, jpeg;
 
 type
@@ -65,7 +65,6 @@ type
     Label11: TLabel;
     Label12: TLabel;
     PrefsSheet: TTabSheet;
-    TrayIcon: TTrayIcon;
     PopupMenu: TPopupMenu;
     ShowHideItem: TMenuItem;
     ExitItem: TMenuItem;
@@ -115,6 +114,7 @@ type
     HistShow2: TRadioButton;
     HistShow3: TRadioButton;
     Crosses: TCheckBox;
+    TrayIcon: TCoolTrayIcon;
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure ShowemailClick(Sender: TObject);