怎样连接REDIS服务端

procedure TForm1.FormCreate(Sender: TObject);
begin
  Redis := TsfRedisClient.Create();
  ConnRedisServer(‘127.0.0.1‘, ‘‘, 6379);
end;

procedure TForm1.ConnRedisServer(ip, password: string; port: Integer);
var
  s: string;
begin
  Redis.Connect(ip, port);
  if password <> ‘‘ then
  begin
    s := Redis.doCommand([‘AUTH‘, password]);
    if s <> ‘OK‘ then
    begin
      ShowMessage(s);
      Exit;
    end;
  end;
end;