SCAR Code:
program New;
var
EndForm : Boolean;
frmDesign : TForm;
Label1 : TLabel;
Function Username:String;
begin
Result:= Between('Walk here ', '(level-', rs_GetUpText);
end;
Procedure UpdateUser(Sender : TObject);
Var
UN, S, OUN:String;
I:Integer;
TSA:TStringArray;
begin
repeat
Wait(200);
if OUN = Username then continue;
UN:=Username;
OUN := UN;
Label1.Caption:='Username:'+UN;
For I:=1 to 5 do
begin
S:=GetPage('http://hiscore.runescape.com/overall.ws?table='+IntToStr(I)+'&user='+UN);
S:= Between(UN+'</a></td>', '/td>', s)
TSA[I-1]:=Between('<td class="alL ARow">', '<', S)
end;
Label1.Caption:='Username:'+UN+' Attack:'+TSA[0]+' Defence:'+TSA[1]+' Strength:'+TSA[2]+' Hitpoints:'+TSA[3]+' Ranged:'+TSA[4]+' Prayer:'+TSA[5]+' Magic:'+TSA[6];
until false;
end;
procedure FormOnClose(Sender : TObject; var Action : TCloseAction);
begin
if (not(frmDesign.ModalResult = 1)) then
EndForm := True;
end;
procedure Form;
begin
frmDesign := CreateForm;
with frmDesign do
begin
OnClose := @FormOnClose;
FormStyle := fsStayOnTop;
Left := 250;
Top := 114;
Width := 386;
Height := 53;
Caption := '';
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
PixelsPerInch := 96;
OnActivate := @UpdateUser;
end;
Label1 := TLabel.Create(frmDesign);
with Label1 do
begin
Parent := frmDesign;
Left := 0;
Top := 0;
Width := 3;
Height := 13;
end;
end;
procedure SafeForm;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('Form', V);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', V);
end;
procedure MainForm;
begin
SafeForm;
SafeShowFormModal;
FreeForm(frmDesign);
end;
begin
ClearDebug;
GetSelf.WindowState := wsMinimized;
MainForm;
GetSelf.WindowState := wsNormal;
if (EndForm) then
TerminateScript;
end.
That Might work.
MIGHT! 
when the client is activated, it will update the label, then, when the updating is done, it waits 200 ms and does it again. Crude, but SHOULD work. Its also an infinite loop but yeah...
Also, I added a failsafe so it will check if the username has changed. if it hasn't then it wont redo it.
Suggestion:
Make an array of labels and update them that way, will make the form look nicer.