function Register

var
url: String

function BoolToStr(const value : boolean) : string;
begin
  if value
  then
    Result := '1';
  else
    Result := '0';
end;
function ban():Boolean;
begin
ShowMessage('Вы заблокированны!');
end;
end;
function checkfile(url:string):boolean;
begin
try
Form1.IdHTTP1.Head(url);
result:=true;
except
result:=false;
end;
end;
function register(login: String; password: String; mail: String; gender: Boolean):Boolean;
 begin
  if CheckUrl(url+'users/'+login+'_'+password+'/exists') then
   begin
    if CheckUrl(url+'users/'+login+'_'+password+'banned') then
     begin
      ban()
     end;
    end;
    ShowMessage('Данный аккаунт уже существует!');
   end;
  end;
   else
    begin
     IdHTTP1.Get(url+'reg.php?login='+login+'&password='+password+'&mail='+mail+'&gender='+BoolToStr(gender));
    end;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
url:='http://iktm.club/socnet/';
end;
end.