Помогите, люди добрые, разобраться с TServerClientThread!!!

Помогите, люди добрые, разобраться с TServerClientThread!!!

Вопрос такой:
Есть объект
type
TFileServerThread = Class(TServerClientThread)
public
a : integer;
Procedure ClientExecute; override;
End;
Procedure TFileServerThread.ClientExecute;
Begin
ClientSocket.Close;
End;
У него есть переменная a : integer;

Если в обработчике OnGetThread писать так

Procedure TForm1.ServerSocketGetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
Var SocketThread: TServerClientThread);
Begin
// Create a new thread for connection
SocketThread := TFileServerThread.Create(False, ClientSocket);
End;

То не получается SocketThread.a:=1;

А если сделать так

Procedure TForm1.ServerSocketGetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
Var SocketThread: TServerClientThread);
Var SThread: TFileServerThread;
Begin
// Create a new thread for connection
SThread := TFileServerThread.Create(False, ClientSocket);
SThread.a:=1;
End;

То вылетает ошибка :-(
Помогите чайнику решить этот вопрос!!!