[ila]

lmikle посмотри пример, там логин и пароль записаны в МЕМО как user=123, а клиент уже коннектится и проверяет пароль, мне вот кажется, что нужно обработать событие, тоесть если в клиенте в писан логин и пароль которого нет в МЕМО на сервере, он его записывает туда, помоему так не сложно будет, как вот только сделать?

[lmikle]

Дык и чем это противоречит тому, что я сказал?
Если ты делаешь на Indy, то все довольно просто.
На каждого подключившегося там открывается отдельная сессия, данные которой сервер сохраняет. Ну так первым запросом перед подключением должна быть передача логина/пароля. Ну и по этому запросу заполняется то самое Memo.

[alikoder]

Может так пойдет

procedure registration(inf,ipaddres:string); // nikass
var
f:TextFile;
authdan,login,loginreg:string;
reg,endlogin,endinf:integer;
begin
reg:=1;
if length(inf) < 41 then
begin
AssignFile(f,'authorization.txt');
Reset(f);
while not EOF(f) do
begin
readln(f,authdan);

endlogin:=pos(':',authdan); // вырезаем логин который уже зареган
login:=copy(authdan,1,endlogin-1);

endinf:=pos(':',inf); // вырезаем логин для реги
loginreg:=copy(inf,1,endinf-1);

if login = loginreg then reg:=0;
end;
CloseFile(f);

if reg = 1 then // регистрация
begin
AssignFile(f, 'authorization.txt');
append(f);
writeln(f, inf);
CloseFile(f);
sendinf('registration', ipaddres);
end;

end;
end;

[ila]

все равно не понимаю, как связать все воедино в коде=(((((