Serversockette thread kullanımı?

[lovecraft]

Kod: Tümünü seç

procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
str:string;
NewItem : TListItem;
durum : string;
begin
str:=socket.ReceiveText;
if str='admin' then
begin
..... islemler burada
end
end;

Bu işlemlerin tamamını thread üzerinde halletmesini istiyorum.Çünkü bu işlemleri ana programda yaparsa program !!bazen!! 30 sn süre ile donma yapabiliyor.Bunun için gelen her mesajın thread üzerinde değerlendirilmesini istiyorum.