[NumLock]

вот поподробнее:

Код:

type
  TStatusThread = class(TThread)
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

{ TStatusThread }

constructor TStatusThread.Create;
begin
  inherited Create(True);
  FreeOnTerminate:=True;
  Resume;
end;

procedure TStatusThread.Execute;
begin
  // получаем пользователь онлайн, оффлайн и тд
end;

begin
  TStatusThread.Create;
end;