1:
2:
3:
4:
5:
6:
7:

var NewValue: Integer;
begin
  if TryStrToInt(user, NewValue) and userint <> NewValue then
  begin
    { Button klicken }
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

if TryStrToInt(user, userint) then
  begin
    if userint > 0 then
      begin
        if userint <> userold then
          begin
           popup.Click;
           userold:= userint;
          end;
      end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TfrmMain.MultilineButton1Click(Sender: TObject);
var userint,userold:integer;
begin
Timer2.Interval:=10000; // 10 sekunden.
Timer2.Enabled:=True;
Timer3.Interval:=2000;// 2 sekunden.
Timer3.Enabled:=True;
//---------------------
text:=GetHTML(Edit1.Text);

user:=copy(text,22,1000);
datuhr:=copy(text,1,20);
datum:=copy(datuhr,1,11);
uhr:=copy(datuhr,12,20);

Label1.Caption:=user + ' ' + Edit2.Text;
Label4.Caption:='Datum: '+ datum;
Label5.Caption:='Uhrzeit: ' + uhr + 'Uhr' ;
//----------------------
if Label1.Caption='' then Label1.Caption:='0' + Edit2.Text;
Label2.Caption:='*';

//Kontacklisten Text aktualisieren
PlugMsg1.Msg    := PM_PLUGIN_SPEC_REDRAW;
PlugMsg1.WParam := UniqContactId;
PlugMsg1.DllHandle := FDllHandle;
FPluginSvc.OnPluginMessage(PlugMsg1);
//--------------------------------
if TryStrToInt(user, userint) then
  begin
    if userint > 0 then
      begin
        if userint <> userold then
          begin
           popup.Click;
           userold:= userint;
          end;
      end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TfrmMain.popupClick(Sender: TObject);
var PlugMsg1: TPluginMessage;
    aFadeWnd: TFadeWndInfo;
begin
 begin
   {============================================}
   {example of how to show fading popup window}
   //0 - message style, 1 - information style, 2 - warning style
   aFadeWnd.FadeType  := 1;
   //its better to use ImageList of icons if you gonna show more than one icon everytime,
   //else you have to care about destroying your HICON after showing fade window, cauz core makes self copy of HICON
   aFadeWnd.FadeIcon  := LoadImage(0, IDI_INFORMATION, IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR or LR_SHARED);

   aFadeWnd.FadeTitle := 'User-Online Plugin';
   aFadeWnd.FadeText  := user + ' ' + Edit2.Text;

   //if your text is too long, then you have to set this param to False
   aFadeWnd.TextCentered := True;

   //it's recommended to set this parameter = False if your fade window is not very important
   aFadeWnd.NoAutoClose := False;

   //send msg to qip core
   PlugMsg1.Msg       := PM_PLUGIN_FADE_MSG;
   PlugMsg1.WParam    := LongInt(@aFadeWnd);

   PlugMsg1.DllHandle :=  FDllHandle;
   FPluginSvc.OnPluginMessage(PlugMsg1);
 end;
end;					

1:
2:
3:
4:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
userold:= -1;
end;					

1:
2:
3:
4:
5:
6:

function TryStrToInt(const s: string; var i : integer) : boolean;
var Error : word;
begin
  Val(s, i, Error);
  TryStrToInt:=Error=0
end;