Создание аккаунта и вход в аккаунт (ЧАТ)

[Federal]

Создал простенький клиент и сервер (ЧАТ) с помощью ServerSocket и ClientSocket:
но вот беда не могу грамотно написать код для регистрации аккаунта и входа в аккаунт:
http://dump.ru/file/4696953

var
//////klient//////
i1,i2,i3,i4: integer;
p1,p2,p3,p4,pppp: integer;
t1,t2,t3,t4: string;
vhod,reg,server,srt,sr:string;
//////server//////
S,S1,S2,S3,Sv,Sk:string;
R: array[1..20] of String;
i,p,pp,ppp:integer;
m,v:boolean;
///////////////////////////////////////////////
///////////////////KLIENT//////////////////////
///////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
//ВХОД
begin
t1:=Edit1.Text; t2:=Edit2.Text;
i1:=Edit1.GetTextLen; i2:=Edit2.GetTextLen;
p1:=10-i1; p2:=10-i2;
for p1:=1 to p1 do begin t1:=t1+' '; end;
for p2:=1 to p2 do begin t2:=t2+' '; end;
vhod:='01'+t1+t2;
ClientSocket1.Socket.SendText(vhod) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
//РЕГИСТРАЦИЯ
begin
t3:=Edit3.Text; t4:=Edit4.Text;
i3:=Edit3.GetTextLen; i4:=Edit4.GetTextLen;
p3:=10-i3; p4:=10-i4;
for p3:=1 to p3 do begin t3:=t3+' '; end;
for p4:=1 to p4 do begin t4:=t4+' '; end;
reg:='00'+t3+t4;
ClientSocket1.Socket.SendText(reg);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Server:=Socket.ReceiveText;
for pppp:=1 to 2 do Sr:=Sr+Server[pppp];
if Sr='99' then
begin
Srt:=Server;
Memo3.Lines.Add(Srt);
end;
Server:='';Srt:='';Sr:='';
end;
///////////////////////////////////////////////
///////////////////SERVER//////////////////////
///////////////////////////////////////////////
procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
//ЧИТАЕМ
begin
S:=Socket.ReceiveText;
for pp:=1 to 2 do S1:=S1+S[pp];
////РЕГИСТРАЦИЯ
if S1='00' then
begin
for pp:=3 to 22 do S2:=S2+S[pp];
for pp:=3 to 12 do S3:=S3+S[pp];
m:=true;
for pp:=1 to i do
begin
Sv:=R[pp];
for ppp:=1 to 10 do Sk:=Sk+Sv[ppp];
if Sk=S3 then
begin
m:=false;
For i := 0 to ServerSocket1.Socket.ActiveConnecti ons - 1 do
ServerSocket1.Socket.Connections[i].SendText('99АККАУНТ СУЩЕСТВУЕТ');
end;
end;
if m=true then
begin
i:=i+1;
R[i]:=S2;
end;
Sk:=''; Sv:=''; S3:=''; S2:='';
end;
////ВХОД
if S1='01' then
begin
for pp:=3 to 22 do S2:=S2+S[pp];
v:=false;
for pp:=1 to i do
begin
Sv:=R[pp];
for ppp:=1 to 20 do Sk:=Sk+Sv[ppp];
if Sk=S2 then v:=true;
end;
if v=true then
begin
/////PROCHLO
end;
Sk:=''; Sv:=''; S2:='';
end;
S1:=''; S:='';
end;

[mss]

Протокол ужасен.
Код, реализующий протокол еще ужаснее.
В условиях глоб.сети код работать попросту не будет.

[Federal]

Ну расскажите уж какие лучше компоненты применять
-по какому принципу должен регистрироватся аккаунт
-как хранить данные об аккаунте на сервере
-и по какому принципу должен входить клиент в аккаунт...

Протокол ужасен.
Код, реализующий протокол еще ужаснее.
В условиях глоб.сети код работать попросту не будет.

С этим я согласен-но я нуб в программировании мне надо пальцем тыкнуть чтоб до меня дошло

[ImmortalAlexSan]

Я бы вам, Federal, посоветывал бы освоить WinSock. Вот подробная информация о нем и ещё кое о чем: http://delphikingdom.ru/asp/viewitem.asp?catalogid=1060 Это вторая часть, первая называется так же только первое слово заменено на "первая", найдете сами. Ознакомьтесь с этим материалом и многие вопросы исчезнут сами собой. И теперь, почему я рекомендую ВинСок, он в отличии от того, что вы используете имеет бОльшую гибкость, но и в конце-концов поймете что находится внутри тех компонентов, которые используете вы. А что косается авторизации (так правильно называется этот термин), то скажу следующее: после ввода логина и пароля, по нажатии на кнопку ОК (или у вас по-другому) должно отправляться серверу сообщение, которое содержит эти два параметра (логин, пароль), в это время, чтобы пользователь не думал, что прога висит, ставите фоновую загрузку, когда сервер доходит до обработки вашего сообщения, он, обработав его, отправляет вам ответ, который может содержать что угодно, например:"ОК", а клиент, приняв это сообщение, проверяет его текст, если ОК=ОК, то продолжаем работу клиента дальше. (т.е. мы авторизованы и видим другие контакты)

[Federal]

Очень хороший материал. Спасибо большое!!!