[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;