THTTPInfo = record
   Spec: Integer;
   Server: String[255];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  HTTPInfo: array of ^THTTPInfo;
begin
SetLength(HTTPInfo, {элементов});
for I := 0 to {элементов} do
  begin
  New(HTTPInfo[I]);
  HTTPInfo[I]^.Spec:= I;
  HTTPInfo[I]^.Server:= IntTostr(I);
  end;
Dispose(HTTPInfo[3]);
for I:=3 to {элементов}-1 do
  HTTPInfo[I]^:=HTTPInfo[I+1]^;
Dispose(HTTPInfo[{элементов}]);
SetLength(HTTPInfo, {элементов}-1);
end;