Senha SOCKET

Tenho a seguinte rotina para fazer LOGIN de usuarios no meu programa:

if table1.locate(´campo de usuario´,edit1.text,[]) and (table1senha.value=edit2.text) then
Begin
abre o sistema
end
else
begin
showmessage(´usuário ou senha incorretos´);
end;

Estou fazendo um programa CLIENTE/SERVIDOR que se conectam em maquinas remotas, e gostaria que este codigo acima, no momento que eu conectasse o CLIENTE no SERVIDOR, o SERVIDOR pedisse com este codigo a senha cadastrada.

Como fazer um LOGIN parecido com este codigo acima utilizando os componentes ServerSOCKET e o CLIENTSOCKET ?

Espero que possam me ajudar e agradeço desde já,
Rodrigo!